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CHET TE GAMES FOR YOUR 1199/44 1171 
Editor’s 
Introduction 


Typing in a computer program is like opening an 
unknown door. You do not know until you actually open 
the door — or, in our case, run the program — what ex- 
perience is waiting for you. Of course, the sign on the 
door has given you some indication, but nothing can 
equal first-hand experience. 

You do not know precisely what experiences are 
waiting for you in the great programs in this book. Of 
course, if the introduction says you're entering a space 
game, it's very likely the program won't play 'Guess My 
Number' when you get it up and running. But the listing 
rarely hints at the computer's game-playing strategy, or 
the screen display, or the fun that is waiting for you. 

This book has a number of unknown doors — doors 
leading into outer space and into the fiendish worlds of 
computer intelligence, wizards and Adventure. 

We've provided the doors...andthe keys. All youhave 
to do to turn the lock is type in the program, and run it. 
Whatever you find behind each door, I guarantee you 
won't be disappointed. 


Tim Hartnell 
Series editor 
London 
March 1984 





Author's 
Introduction 


The TI99/4A computer is a machine which has, in my opi- 
nion, been underrated for far too long. Featuring superb 
sound, user-definable graphics and a good keyboard, 
the TI 99/4A is a great computer to use. 

Although some of its commands are a little non- 
standard, they are easily mastered and can be used most 
effectively, as [hope I have demonstrated in this book. 

To ensure that this book is of maximum use to you, the 
standard onboard BASIC has been adhered to in all ex- 
cept one of the programs. If you think that the standard 
language is too limited for worthwhile programming, 
you've got a pleasant surprise in store. 

I'm sure you will enjoy running the programs in this 
book, and I hope you have fun adapting and improving 
them. 


Andrew Nelson 


London 
January 1984 
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In this game, you have to try and find a secret room 
hidden within a vast mansion, designed by the mad 
architect, T.I. McNinetyniner. Although the maze 
remains the same from game to game, the location ofthe 
room you are searching for changes each time you run 
| the program. 

i The room is presented graphically in front of you, 
| creating quite an uncanny feeling of ‘reality’ as the walls 
| Move past you. You move using the arrow keys. 

You will be asked to enter your choice of colours when 
you run the program. Start by entering 14,2 which works 
very well. Then you can choose your own colour com- 
binations on subsequent runs. 
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10 REM 3-D MAZE 

20 REM 

30 INPUT "FOREGROUND, BACKGROUND COLOR 7": 
40;DIM ROOM(10,10) ,HUH(11,4),C0¢11, 4) 

29 GOSUB 4680 

60 A$(1)="SOUTH" 

79 AS(2)="WEST" 

BO A$ (3S) ="NORTH" 

90 AS(4)="EAST" 


100 
110 
120 
130 
140 
150 
140 
170 
180 
190 
200 
210 
220 
230 
=40 
250 
260 
279 
280 
290 
300 
310 
320 
330 
540 
300 
360 
370 
380 
390 
400 
410 
420 
430 
440 
430 
450 
470 
480 
490 


FOR X=1 TO 10 

FOR Y=1 TO 190 

READ ROOM(X,Y) 

NEXT Y 

NEXT X 

FOR I=1 TO 11 

READ HUH(I,3) ,HUH(I,4) ,HUHCI,1) ,HUH(I 
NEXT I 

XX=1 

YY=1 

FACE=1 

FOR I=1 TO 11 

READ C(I,1),C0(1,2),C(1,35),C(1I,4) 
NEXT I 


REM 
REM “SETUP, RUNV 
GOTO 390 


CALL SOUND (-S00, 110,90) 

CALL KEY(1,K,S) 

IF S=O THEN 280 

K=— (K=5) -2% (KS3) -3k (K+1=1) —4% (K=2) 
K=K= (K=O) 
FACE=FACE+ (K=4) -2k (K=3)-(K=2) 
FACE=FACE+4% (FACE >4) ~4% (FACE<1) . 
IF K=1 THEN 360 

GOTO 390 

IF HUH(ROOM(XX,YY),FACE)=0 THEN 270 
XX=XX+ (FACE=3) -— (FACE=1) 

YY=YY+ (FACE=2) — (FACE=4) 

R=C (ROOM (XX, YY) , FACE) 


CALL CLEAR 

REM FRINT UP INFO 

A=1 

IF (R=1)+(R=2)+(R=4)+(R=7) THEN 450 
=2 

GOSUB 890 

A=7 


IF (R=2) + (R=3) + (R=&) +(R=9) THEN 490 
A=8 
GOSUB 890 
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FG, BG 
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A=11 
IF (R=4)+(R=5) + (R=6)+(R=10) THEN S20 
ELSE 3540 
GOSUB 890 
GOTO 280 
=C (ROOM (XX+ (FACE=3) ~ (FACE=1), 
YY+ (FACE=2) — (FACE=4) ), FACE) 
A=5 


IF (R=1)+(R=2)+(R=4)+(R=7) THEN 580 

A=4 

GOSUB 890 

Ass 

IF (R=2)+(R=3)+(R=6) +(R=9) THEN 620 

A=6 

GOSUB 890 

A=10 

IF (R=4)+(R=5)+(R=6) +(R=10) THEN 660 

A=9 

GOSUB 890 

GOTO 280 

REM SEND THE °SETUP* TO HERE 

As (1) ="BOCOEOFOFSFCFEFF" 

A$ (2) ="FFFEFCFSFOEOCOSO" 

AS (3) ="FF7F3F1FOFO70301" 

A$ (4) ="0103070F 1F SF 7FFF" 

A$ (5) ="FFFFEFFFFFFFFFFF 

AS (4) ="0" 

CALL CHAR (139, A$(1)) 

CALL CHAR (140,A¢(2)) 

CALL CHAR (141, A$(3)) 

CALL CHAR (142, A%(4)) 

CALL CHAR(143,A$(5)) 

CALL CHAR (144, A% (4) ) 

CALL COLOR(14,FG, 1) 

CALL SCREEN (BG) 

IF BG>2 THEN 870 

FOR I=1 TO 13 

CALL COLOR(I, 16, BG) 

NEXT I 

REM  139=\B,140=\T,141=/T, 142=/B, 
143=FULL, 144=BLANK 

RETURN 

RE | SEND THE MAP TO HERE 

IF (A¢1)+(AS12) THEN 920 

ON A GOSUB 930, 1000, 1070, 1140, 1210, 

1280, 1350, 1420, 1490, 1610, 1460, 1710 

RETURN 

REM LHS FRONT SOLID, COLOR=N 
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940 FOR I=1 TO 6 

950 CALL HCHAR(I,1,139) 

960 CALL HCHAR(25-1,1,140) 

970 CALL VCHAR(I+1,1, 143, 24-2x1) 
980 NEXT I 

990 RETURN 

1000 REM LHS FRONT DOOR, COLOR=N 
1010 FOR I=1 TO 4 

1020 CALL VCHAR(6,1,143, 14) 

1030 NEXT I 

1940 CALL HCHAR(4, 6,139) 

1050 CALL HCHAR (19,6, 140) 

1040 RETURN 

1070 REM LHS SIDE WALL, COLOR=N 
1080 FOR I=7 TO 10 

1090 CALL HCHAR(I,1I,139) 

1100 CALL HCHAR(25-1,1,140) 

1110 CALL VCHAR(I+1,1,143, 24-12) 
1120 NEXT I 

1130 RETURN 

1140 REM LHS SIDE DOOR, COLOR=nN 
1150 FOR I=7 TO 10 

1140 CALL VCHAR(10,1,143,6) 

1170 NEXT I 

1190 CALL HCHAR(10, 10,139) 

1190 CALL HCHAR(15, 10,140) 

1200 RETURN 

12710 REM RHS SIDE WALL,COLOR=N 
i220 FOR I=15 TO 18 

i230 CALL HCHAR(I,1,141) 

1240 CALL HCHAR (25-1, 1, 142) 

250 CALL VCHAR(26-1,1,143, 1¥2-26) 
1260 NEXT I 

1270 RETURN 

i280 REM RHS SIDE DOOR, COLOR=N 
1290 FOR I=15 TO 18 

1300 CALL VCHAR(10,1,143,6) 

1210 NEXT I 

1320 CALL HCHAR(10, 15,142) 

SSO CALL HCHAR (15,15, 141) 

i340 RETURN 

1350 REM RHS FRONT WALL, COLOR=N 
1360 FOR I=19 TO 24 

1370 CALL HCHAR(I,1, 141) 

1380 CALL HCHAR(25-1,1, 142) 

1290 CALL VCHAR (26— 1, 1,143, 1x2-26) 
1400 NEXT I 

1410 RETURN 

1420 REM RHS FRONT DOOR, COLOR=N 
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1430 FOR I=19 TO 24 

1440 CALL VCHAR (4,1, 143, 14) 
1450 NEXT I 

1460 CALL HCHAR (4, 19,142) 
1470 CALL HCHAR(19,19,141) 
1480 RETURN 

1490 REM CENTER FOREVER 
i500 FOR I=11 TO 12 

1510 CALL HCHAR(I,1I,139) 
1520 CALL HCHAR(25-1,1,140) 
1530 NEXT I 

1540 FOR I=13 To 14 

1550 CALL HCHAR(I,1,141) 
1560 CALL HCHAR(25-1,1,142) 
1570 NEXT I 

1580 CALL VCHAR(12, 11,143, 2) 
1590 CALL VCHAR(12,14, 143, 2) 
1600 RETURN 

1610 REM CENTER WALL 

14620 FOR I=i0 TO 15 

1630 CALL VCHAR(10,1,143, 6) 
1640 NEXT I 

16450 RETURN 

1660 REM MIDDLE *BRIG" WALL 
1670 FOR I=6 TO 19 

1680 CALL VCHAR(4,1,143,14) 
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1690 NEXT I 

1700 RETURN 

1710 CALL CLEAR 
1720 RETURN 

1730 DATA 
1740 DATA 
17350 DATA 
1760 DATA 
1770 DATA 
1780 DATA 
1790 DATA 
1800 DATA 
1810 DATA 
1820 DATA 
1830 DATA 
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1840 DATA 
1850 DATA 
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SEARCH FOR 
THE HOLY 
GRAIL 


Now you can take on the Monty Python team at their own 
quest, as youtraverse the lonely fields ofthe TV screen in 
search of the Grail. 

Inactual fact, youdon't havetosearch very hard (asthe 
Grail is shown plainly on the screen from the beginning of 
the game). However, knowing where it is and actually 
getting to it are two quite different things. You have to get 
to the Grail through a maze of walls built of odd-shaped 
stones. 

You move through the maze using the arrow keys. Your 
path to the Grail is impeded by a ferocious dragon, hell- 
bent on your destruction. Thanks to clever programm- 
ing, the dragonis relatively intelligent. Itis after you at all 
times, and is able to move through walls, so you really 
haven't got much hope! 

If you manage to get to the Grail on the first screen 
shown, a new maze will be created. However, this se- 
cond maze is invisible. All you will see on the screen is 
the Grail, yourself, and the dragon. 

As an extra twist, a bouncing ball will appear on the 
screen which you would be well igs to beware. 
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REM SEARCH FOR THE HOLY GRAIL 
GAMES=1 

TOTS=387 

HS=387 

RANDOMIZE 

CALL SCREEN (2) 

SPEED=4 


Y=H23 

A=8 
B=8 
R=10 
C=16 


_") 
— 2 


CALL CHAR(131, "FFCSAS9999ASCSFF") 
OP=0 


X$ (1) ="0000001818" 

X$ (2) ="0000183C3C18" 

X$ (4) ="3C7EFFFFFFFF7ESC" 
X$ (3) ="001983C7E7ESC18" 
X$ (5) =X$ (4) 

X$ (6) =X$ (4) 

XB (7) =X$ (3) 

CALL CHAR (145, X#(0)) 

X$ (B) =X$ (2) 

X$(9)=X$ C1) 

CALL CLEAR 

CALL HCHAR(24,1,131,64) 
CALL VCHAR(1,32,131, 48) 
CALL HCHAR (11,14, 138) 
CALL HCHAR (3,3, 131,13) 
CALL HCHAR(3,17,131,10) 
CALL VCHAR (3,15, 131,9) 
CALL CHAR (132, "00101038101") 
CALL VCHAR(3,17,131,9) 
CALL HCHAR (12,15, 131,3) 
CALL HCHAR(2, 2,133, 1) 
CALL HCHAR (9,5, 131,10) 
CALL HCHAR(11,5,131,10) 
CALL HCHAR(10,15,32, 4) 
CALL VCHAR(S,3, 131,10) 
CALL VCHAR (3,30, 131,10) 
CALL HCHAR (22, 2,131,8) 
CALL CHAR (138, "GOFF7ESC18187E7E") 
CALL HCHAR (22, 11,131, 20) 
CALL HCHAR (20,5, 131, b) 
CALL HCHAR(20,15,131, 10) 
CALL HCHAR (18.4, 131,25) 
CALL HCHAR(16,3,131,4) 
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CALL HCHAR (14,10, 131,10) 
CALL VCHAR(19,12,131,3) 
CALL HCHAR (6, 4, 131,98) 
CALL HCHAR(11, 14,32) 
CALL CHAR (144, "60E21519358181939") 
CALL HCHAR (7,3, 32) 

CALL HCHAR(4, 2,131, 4) 
CALL VCHAR(S, 19,131, 12) 
CALL VCHAR (18, 13,32) 
CALL VCHAR(12,8,131,4) 
CALL VCHAR(17,3,131,4) 
CALL VCHAR(20,5,131, 3) 
CALL HCHAR (11,22, 133) 
CALL HCHAR (14,20, 131,5) 
CALL CHAR (150, "OGO3C3C1830302424") 
CALL HCHAR (12, 22,131, 4) 
CALL HCHAR (15,8, 32) 
CALL HCHAR(14,10,131,3) 
CALL VCHAR(14,16,131,2) 
CALL HCHAR (20, 12, 32) 
CALL HCHAR (15,19, 32) 
CALL VCHAR (12, 26,1351, 6) 
CALL HCHAR(16,4,129) 
CALL HCHAR (8, 15, 129) 


CALL HCHAR (14,15, 129) 
CALL HCHAR (3, 14,129) 
CALL HCHAR(11,7,129,3) 
CALL HCHAR (19, 26, 133) 
FOR I=1 TO 12 

CALL COLOR(I,16,1) 
NEXT I 

CALL COLOR(13, 6,1) 
CALL COLOR(14,11,1) 
CALL COLOR (15,10, 1) 
CALL COLOR(14,4,1) 


CALL CHAR (129, "FFC3AS9999ASC3FF") 
CALL HCHAR(Y, X, 150) 
FOR I=1 TO 19-SPEED+(SCORE/15) 
S=INT (RNDX18) +3 
T=INT (RND&25) +3 
IF (S=11)*(T=16) THEN 880 
CALL HCHAR(S, T, 129-2% (RND>.8) ) 
NEXT I 
CALL HCHAR (INT (RND&22) +2, 

INT (RNDX&30) +2, 133) 
RR=R+ (R>Y) —(REY) 
CC=C+(C>X) -(CEX) 
CALL GCHAR (R,CC,K) 
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P7O IF (K=1351)+(K=145) + 

(K=138) +(K=144) THEN 1020 
980 IF K=150 THEN 1590 

9970 CALL HCHAR(R,C,32) 


1000 
1010 
1020 
1030 


1040 
1050 
1960 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
12350 
1260 
1270 
1280 
1290 
13200 
1310 
1320 
1330 
1340 
1250 
1260 
1270 
1380 
1390 
1400 
1410 
1420 


CALL HCHAR(R,CC, 144) 

C=CC 

CALL GCHAR (RR,C,K) 

IF (K=131)+(K=145) +(K=138) + 
(K=144) THEN 1080 

IF K=150 THEN 1590 

CALL HCHAR(R,C, 32) 

CALL HCHAR(RR,C, 144) 

R=RR 

FOR I=1 TO SPEED 

CALL KEY(1,K,S) 

IF (S=0)+(K>5)+(K=1) THEN 1300 

XX=X+ (K=2) —(K=3) 

VY=Y+(K=5) —(K+1=1) 

CALL GCHAR (YY, XX,K) 

IF K<¥133 THEN 1190 

CALL SOUND (20, 440,0) 

CALL SOUND (40, 480, 0) 

CALL SOUND (20, 440,90) 

SCORE=SCORE+5S 

SCORE=SCORE- (K=131) * (SCORE>O) 

IF (K<>129) &(K<>1351) THEN 1220 

CALL SOUND (-10,440,0,-7,7) 

IF (K=129)+(K=131)+4+(K=150) THEN 1300 

IF (K=145)+(K=144) THEN 1590 

I=I+9k (K=133) 

IF K=138 THEN 1420 

CALL HCHAR(Y, X, 32) 

CALL HCHAR (YY, XX, 150) 

Y=YY 

X=XX 

NEXT I 

IF OP THEN 1390 

CALL HCHAR (A,B, 32) 

A=INT (RND*22) +2 

B=INT (RNDX30) +2 


IF (A=11)%* (B=16) THEN 13350 
OP=10 

CALL HCHAR (A,B, 145) 

GOTO 940 

OP=OP-1 

CALL CHAR (145, X$ (OP) ) 
GOTO 940 

SPEED=SPEED+ (SPEED+1) 
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1540 
1550 
1540 
i570 
13580 
1590 
1600 
1610 
1620 
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FOR I=1 TO 15 

CALL SOUND (-100, 110+20*1,0) 
NEXT I 

SCORE=SCORE+20 

IF SPE=1 THEN 1540 

IF SPEED<>3 THEN 15980 


PRINT ssss2zsssesseSses3ss8eeseza8 
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CALL SCREEN (2) 
SPEED=2 
SCORE=SCORE+15 

SPE=0 

GOTO 80 

CALL SOUND (100, 440, 0) 
CALL SOUND (20, 440, 30) 
CALL SOUND (100,340, 0) 
CALL SOUND (20, 340, 30) 
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CALL SOUND (100, 340,0) 
CALL SOUND (20,380, 30) 
CALL SOUND (100, 380, 0) 
CALL SOUND (20, 330, 30) 
CALL SOUND (100, 330,0) 
CALL SOUND (80, 380, 30) 
CALL SOUND (100,380, 0) 
CALL SOUND (20, 430, 30) 
CALL SOUND (100, 410,0) 
GAMES=GAMES+1 


PRINT ::"SCORE ~-->"3 SCORE 
TOTS=TOTS+SCORE 
PRINT “HIGH SCORE ===>"5HS 


PRINT :: "AVERAGE SCORE ==>": 


"FROM ";GAMES;" GAMES": "="5 TOTS/GAMES: 


1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 


IF SCORE>HS THEN 1840 
INPUT "PLAY AGAIN ?":A% 

IF SEG$(A$,1,1)<>"Y" THEN 1830 
SCORE=0 

SPE=0 

GOTO so 

STOF 

HS=SCORE 

GOTO 1780 
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RAM BLASTER 





RAM BLASTER 


You are the dreaded RAM-rammer, trying to destroy all 
the computer components on the screen. 

When you first run the game, you'll see the points you 
can score for hitting each kind of component. You move 
using the arrow keys, and fire by pressing the space bar. 
Note that you can only fire by pressing the space bar as 
you move. The little black bullet always moves in the 
direction you are currently travelling. 








RAM 
BLASTER 










SPACE BAR 


ITT 
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REM RAM BLASTER 
REM BY D&D 


RANDOMIZE 

LEVEL=1 

CALL CLEAR 

PRINT " ALL SYSTEMS GO": 
4 STANDBY"ssirsi3s 


FOR I=127 TO 159 
CALL CHAR(1I,STRSCINT (RNDK999999999) +1) ) 
NEXT I 


KILL=0 

A=9 

X=10 

DIM SC(S) 
SC (1) =40 
SC (2)=70 
SC (3) =100 
SC (4) =200 
XM=0 

CALL CLEAR 


DIM HS(20) ,HS$ (20) 

GOSUB 2840 

Y=10 

CALL CHAR (105, "FFS1C399C381FF") 
DIM XX(10), YY(10) 

CALL CHAR (104, "O000003C3C000000") 


260 SC(5)=22 

270 CALL CHAR(127,"") 

280 YM=1 

290 LEVEL=1 

Z00 SCORE=0 

310 CALL CHAR (103, "00183C7E7E3C18") 
320 DIM T(10) 

330 FOR I=1 TO A 

340 TCI) =INTC(RNDKS) +1 

350 XX (1) =INT(RNDX24) +1 

340 YY (1) =INT(RND&32) +1 

370 NEXT I 

380 CALL CHAR(100, "7E3C7ESC7E3C7E") 
390 CALL CHAR(101, "OOOOFFE7E73C3C") 
400 CALL CHAR(102, "OOOOFF421824FF") 
410 FREE=1 

420 CALL KEY(3,K,S) 


LIFE=LIFE+1 


440 IF LIFE?3 THEN 1000 
450 @Q=12 

460 FOR I=1 TO 16 

470 CALL COLOR(I,902,QQ) 
480 NEXT I 


26 





CALL COLOR (9,05, 0a) 

CALL COLOR (10,2, QQ) 

AX=22 

XX$=" "&eSTRB(4-LIFE)&" LIVES " 

GOSUB 3220 

KILL=0 

AX=23 

XX$="LEVEL -->"&STRS (LEVEL) 

GOSUB 3220 

AX=24 

XX$="PRESS ANY KEY TO BEGIN LEVEL" 

GOSUB 3220 

CALL KEY(0,K,S) 

IF S=0 THEN 610 

AX=10 

XXS="GET READY" 

GOSUB 3220 

AX=11 

XX$=" GET SET " 

GOSUB 3220 

AX=13 

XX$="" GO " 

GOSUB 3220 

CALL SCREEN (QQ) 

CALL CLEAR 

CALL KEY (0, KEY, STATUS) 

IF KEY=32 THEN 1970 

XM= (XM— (KEY=ASC (""X") ) + (KEY=ASC ("E") )) x 
(KEY< SASC ("S") ) &(KEY< DASE ("D") ) 

YM= (YM—(KEY=ASC ("D") ) #(KEY=ASC ("S") )) 
kK (KEY< SASC ("E") ) kK (KEYS DASE ("YX") » 

CALL HCHAR(X,Y, 32) 

X=X+XM 

Y=Y+YM 

X=X—-24k (X<=0) 

X=X+24k (X2=25) 

Y=Y—32k (Y<=0) 

Y=Y¥+32k (Y>=33) 

CALL GCHAR(X,Y,HIT) 

IF HIT=32 THEN 890 

GOSUB 1810 

GOTO 990 

CALL HCHAR(X,Y, 100) 

ABC=N 

GOTO 930 

IF N=ABC THEN 2330 

N=N+1 

N=N-+Ax (N>A) 

IF T(N)=0 THEN 920 
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1030 
1040 
1O50 
1040 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


1300 


1340 
1350 

1360 
1370 
1380 
1390 
1400 
1410 


SR Ree eee Pes 
cH GAMES FOR YOUR 1199/48, tT 1 


XXX=1 

ON T(N)GOSUB 1070,1180,1290,1310, 1420 
IF XXX=1 THEN 1010 

GOTO 430 





GOTO 1950 
CALL SOUND (1,1440,0) 
GOTO 740 
S= (XX (N) ¥X) — (XX (ND) EX) 
REM S=S+(S=0) 
D=(S=0) KC CYY (N) CY) — (YY CN) Y) ) 
D=D+ 10000 
CALL HCHAR(XX(N), YY (MN), 32) 
XX (N) =XX (N) +S 
¥Y (ND) =YY (N) +D 
XX (N) =XX (CN) + OXX (N) 224) — (XX (N) £=O) 
YY (N) SYY (ND + (YY (N) 332) — (YY (N) 0) 
CALL GCHAR (XX (N),YY(N) ,HIT) 
IF HIT=32 THEN 1140 
GOSUB 1920 
RETURN 
CALL HCHAR (XX (ND, YY (MN), 101) 
RETURN 
CALL HCHAR(XX(N), YY(N) , 32) 
XX CN) =XX CN) + OXX ON) BX) — OXX ON) EX) 
YY (ND SYY (ND) + (YY (ND BY) —CYY (ND €Y) 
XX CN) =XX (N) + OXX ON) ¥24) = (XX (ND <=0) 
YY (N) =YY (ND + (YY (ND 332) —CYY O(N) <1) 
CALL GCHAR (XX(N), YY(N) ,HIT) 
IF HIT=32 THEN 1270 
GOSUB 1820 
RETURN 
CALL HCHAR (XX (N),YY(N), 102) 
RETURN 
IF (SOR ((XX(N)-X) “2) de3) 4+ 
(SQR CCYY (N) -Y) *2) >=3) THEN 1030 

T(N) =4 
CALL HCHAR(XX(N), YY(N) , 32) 
XX (N) =XX (N) + (XX (ND > OXEXM) ) 

(XX CN) < (X#XM) ) 
YY (ND) =VY (ND + CYVY (ND > CY+YM) 

— (YY (N) < (Y+YM) ) 
XX (N) =XX (CN) + (XX CN) #24) — XX (ND <1) 
YY (ND =YY (ND + (YY (ND 232) — (YY (N) <1) 
CALL GCHAR (XX(N), YY(N) HIT) 
IF HIT=32 THEN 1400 
GOSUB 1820 
RETURN 
CALL HCHAR(XX(N), YY(N) , 103) 
RETURN 


28 





1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
17980 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


FOR LOOP=1 TO 2 

IF INT(RNDK10) +11 THEN 1460 
CALL HCHAR(XX(N),YY(N), 104) 
GOTO 1470 

CALL HCHAR(XX(N),YY(N) , 32) 

XX CN) =XX ON) # OXX CN) BX) = OXX (ND EX) 
VY (ND =YY (N) + (YY (ND >Y) —CYY OND <YD 
XX (N) =XX (N) + (XX (N) 924) — (XX (NDS 1) 
YY (ND =VY (ND + CYY (ND 32) — CYY (ND 24) 
CALL GCHAR (XX (N), YY(N) HIT) 

IF HIT=32 THEN 1550 

GOSUB 1820 

RETURN 

IF (SQR( (XX (N)-X) *2) <5) k (SOR ( (YY (ND 
-Y)°2)<¢5) THEN 1580 

CALL HCHAR (XX (N), YY(N) , 127) 
GOTO 1590 

CALL HCHAR(XX(N), YY(N), 105) 
NEXT LOOP 

RETURN 

CALL SOUND (-200,-7,0) 

IF HIT=104 THEN 1790 
SCORE=SCORE+SC (T(N) ) 

TON) =O 

GOSUB 1700 

KILLER ILL +1 

LLLL=SCORE 

IF HILL2=A THEN 2330 

RETURN 

IF LLLL>=3O00XFREE THEN 17980 
IF SCORES 3000XFREE THEN 1780 
FOR I1S=1 To 5 

CALL SOUND (150, 440,0) 

CALL SOUND (150, 40000, 30) 

NEXT IS 

LIFE=LIFE-1 

FREE=FREE+1 

RETURN 

CALL. HCHAR (XX (N), YY (N) , 32) 
GOTO 1630 

HIT=100 

IF HIT<>100 THEN 1610 

FOR I=1 TO 30 

CALL SOUND (-100,-7,0) 

CALL HCHAR (X,Y, INT (RND*32) +128) 


NEXT I 

PRINT "“SCORE="3SCOREsss::: 
XXX=O 

FOR IITtr=1 TO A 
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2330 
2o40 
2350 
2060 
aol) 


IF TC(N)=0 THEN 1930 

XX (N) =INT CRND&X24) +1 

YY (N) =INT C(RND&32) +1 

NEXT ITI 

RETURN 

GOSUB 2590 

GOTO 100 

YB=YM 

XB=XM 

PX=X 

PY=Y 

KONST=10-LEVEL 

IF KONST>3 THEN 2040 

KONST=4 

FOR I=1 TO KONST 

PX=PX+XB 

PY=PY+YB 

IF (PX<1)+(PY<1) +(PX324) + 
(PY>32) THEN 2170 

CALL GCHAR (PX,PY, SPLAT) 

IF SPLAT=100 THEN 2140 

IF SPLAT=104 THEN 2140 

IF SPLAT<>32 THEN 2180 

CALL HCHAR(PX,PY, 104) 

CALL HCHAR (PX,PY, 32) 

NEXT I 

XB=0 

YB=0 

GOTO 740 

FOR N=1 TO A 

IF T(N)=0 THEN 2210 


IF (XX (Nd =PXI KCYY (ND =PY) THEN 2230 


NEXT N 

GOTO 7460 

LLLL=SCORE 
SCORE=SCORE+SC (T(N)) 
GOSUB 1700 
LLLL=SCORE 

T(N) =O 

KILL=KILL+1 

IF KILL>=A THEN 2330 
CALL SOUND (-140,-5,0) 
CALL HCHAR(PX,PY, 32) 
GOTO 740 

FOR I=1 TO 10 

CALL COLOR (1,@Q, INT (RND*16) +1) 
NEXT I 

CALL COLOR (1, 16,00) 
LEVEL=LEVEL +1 
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Fin a 
2990 
2040 
eIIO) 
2a) 
awd 7O 


2 wI80 
2090 
2600 
24610 


2620 
26350 
2640 
2650 
2560 
2670 
24980 
2690 
2700 
2710 
2720 
2730) 
2740 
27350 
2740 
2770 
2780 
2790 
2800 
2810 
2820 
2830 


FOR I=1 TO A 

TCI) SINT (CCRNDXS) +1) 
G=G-(T(I) =4) 

H=H—-(T (1) =3) 

XX CI) =INT (RNDX24) +1 

YY (CI) =INT C(RNDX32) +1 

NEXT I 

IF (G>LEVEL/3)+(G?2A-2) THEN 2490 
H=0 

G=0 

GOTO 2380 

X=10 

IF (¢(H+G) >LEVEL/2)+((G+H) >A-2) THEN 2540 
G=0 

H=0 

GOTO 23580 

Y=10 


GOTO 450 

XX$=" GAME OVER " 

FOR I=1 TO LEN(XX$) 

CALL HCHAR(12, (15-INT(.SX*LEN(XX$))) +I, 
ASC (SEGS (XX#,1,1))) 


NEXT I 

FOR I=1 TO 20 

IF SCORE >HS(1I) THEN 2730 
NEXT I 

FOR I=1 TO 20 
PRINT HS(I),HS$(T) 
NEXT I 

FOR I=1 TO 1000 
NEXT I 

RETURN 

REM 


FOR J=20 TO I+1 STEP -1 

HS (J) =HS (J-1) 

HS$ (J) =HSS& (J-1) 

NEXT J 

INPUT "NAME PLEASE ?":HS#(I) 
CALL CLEAR 

IF LEN(HS$(I))<11 THEN 2820 
PRINT "TEN CHARACTERS LONG-NO MORE" 
GOTO 2770 

HS (I) =SCORE 

GOTQ 2440 


31 





2840 IF HS¢1)+0 THEN 2890 

2950 FOR I=1 TO 20 

2860 HS(1)=S000-1S5*I-INT  (RND*X10) 
2870 HS$(1I)="RAMCHIF"&STRS (I) 
2880 NEXT I 

2890 SCORE=0 

2900 AX=4 

2910 XX$="RAMCHIF" 


2920 
2730 
2940 
2950 


GOSUB 3220 
AX=6 


as GAMES FOR YOUR T1 99/44 SECT 
PET UT LTTE 


XX$="d —- YOUR RAMCHIF" 


GOSUB 3220 





2960 REM d,h,e,40,,70,e,100,9, 200,i1, 220 
2970 AX=7 

2980 XX$="e — RAMCHIFS 40" 

2990 GOSUE 3220 

S000 AX=8 

SOLO XX#="4 — ROMCHIFS 7" 

7020 GOSUB 3220 

S030 AX=9 

S040 XX$="e — PROMS,VL = 100" 

3050 GOSUB 3220 

S060 AX=10 

=O70 XX$="g ~ PROMS,V2 200" 

2080 GOSUR 3220 

3090 AX=11 

S100 XX$="i — EPROMS 220" 

S110 GOSUB 3220 

S120 AX=12 

S120 XX$="HIDDEN EFROMS 220" 

2140 GOSUB 3220 

SiSQ AX=13 

2160 XX$="h ~ STATIC ELECTRICITY —-BEWARE" 
3170 GOSUB 3220 

=180 AX=15 

3190 XX$="FREE RAMCHIF EACH 3000 FOINTS" 
S200 GOSUE 3220 

2210 RETURN 

3220 AY=(16~(. SHLEN(XX$) )) 

S230 IF XX$<>"GET READY" THEN 

3240 CALL CLEAR 


3250 FOR IJ=1 TO LEN(XX$) 
3260 CALL HCHAR(AX,AY+IJ, 
ASC (SEGS(XX$,1IJ,1))) 
3270 NEXT Id 
3280 RETURN 
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Hi 










-Elonmes ror your nissan PEEP 
HAPPY 
BIRTHDAY 


This simple program, by Damon Pillinger and Mark 
Charlton, will tell you which day of the week you were 
born on. Youcanalso use it, of course, to find out on which 
day historical events occurred. 








10 REM xx HAPPY BIRTHDAY Xx 
20 REM 
30 REM *xX DAMON PILLINGER xx 
40 REM 
SO REM BASED ON *DAY OF THE WEEK’ 
60 REM BY MARK CHARLTON, IN 
7O REM "THE GATEWAY GUIDE..." 
80 DAYS$="SUNMONTUEWEDTHUFRISAT" 
90 FOR JJ=1 TO 30 
100 PRINT 
110 NEXT JJ 
120 PRINT “PLEASE ENTER THE DAY (AS" 
130 PRINT " A NUMBER, EG 30) ON" 
140 INPUT “" WHICH YOU WERE BORN ":DAY 
150 IF (DAY<1)+(DAY>31) THEN 120 
160 PRINT 
170 INPUT “WHAT MONTH "sO 
180 IF (MO<1)4+ (M0212) THEN 170 
190 PRINT ss: 
200 INPUT "WHAT YEAR XXXX ": YEAR 
210 REM IF YEAR>100 THEN 210 
220 REM YEAR=YEAR+1900 
220 CALL CLEAR 
240 COY=0 
290 IF MO>+2 THEN 270 
260 COY=1 
270 LA=YEAR-COY 
280 OA=M0+(12xCOY) 
290 PA=INT (LA/100) 
300 DAT=INT ((SX&LA) /4) +D—-1+INT 
(13% (0At+1) /S) -P+INT (P/4) 
310 DAT1=(DAT—-7XINT (DAT/7) ) &S+1 
320 PRINT ass5535 
350 PRINT "THE DATE: “ 


240 PRINT " "sDAY$s"/"3MO3"/"s YEAR 
300 PRINT 

360 PRINT "IS A "“"3SEG% (DAYS, DAT1,3) 

370 PRINT sssess: 

380 FOR JJ=1 TO 421 
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FEHEEEEHHHth GAMES FOR YOUR TI 99/4m, HEHEHE EE 
DOWNUNDER 


Kevin Burfitt uses his computer to recreate some of the 
Australian landscape. You have to move your kangaroo 
down the screen to the door youcan see near the bottom. 
As you bounce down you have to make sure youdon'trun 
into the river, the dingo, the platypus or the wombat. 

Youhave extremely limited time to get to the door. You 
can increase your strength, and thus add to yourchances 
of getting to the door, by eating the Vegemite that ap- 
pears on the screen. (Vegemite, by the way, is a black 
paste which Aussies eat on nearly everything. It is ex- 
tremely good for kangaroos.) 

Once you get to the door, anewscreen will appear; this 
one will be more difficult to navigate through. 


yo 
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10 REM XXKKKKKKKKKKX 
20 REM * DOWNUNDER * 
SO REM KXKKKKKKKKKKK 
40 REM BY Kevin Burfitt 


60 CALL CLEAR 

7O PRINT "DOWNUNDER":: "MOVE YOUR KANGAROO 
WITH THE ARROW KEYS"::"TRY TO REACH TH 
E DOOR ("sCHRS (SO) 3") " 

80 PRINT “AT THE BOTTOM OF THE SCREEN. DONT 
RUN INTO THE RIVER (#),DINGO (p),PLAT 
YPUS ¢h)":"OR THE WOMBAT (e)" 

90 FPRINT ::"GET FOINTS FOR HITTING THE 

MAGIC ITEMS ¢ijkim),BUT MAKESURE YOU DON 

T RUN OUT OFS: "TIME BY EATING": 

100 FRINT "“ VEGEMITE (9) "::"GOOD LUCK":: 

119 REM 

20 RANDOMIZE 

130 DEF BIN(X)=((L/2°XK) < eINT(L/2°x) ) x 
(CCL /2°X)-INTCL/2°X) ) b=0. 5) 

140 REM 

150 REM SETUP 

160 LIVES=3 

179 SCORE=0 

180 CALL CHAR (100, "960704070E1E24CF") 

190 CALL CHAR(101, "OOOS7FFEFEFC4S846C" ) 

200 CALL CHAR (99, "183SC7E7EZC1I8i83SC") 

210 CALL CHAR (102, "04E318C6218C6318") 

220 CALL CHAR(103, "007E7E46667E3C18") 

250 CALL CHAR (104, "QOQO0003FFF1I23600") 

2490 CALL CHAR (105, "00424218184242") 

250 CALL CHAR(106, "0054435544335445") 

260 CALL CHAR(107, "OO7E425ASA427E") 

270 CALL CHAR (108, "00424242424227418") 

280 CALL CHAR(109, "001818FFFF1818") 

290 CALL CHAR(112, "OO00027FFC7B486C”" ) 

300 INPUT "STARTING LEVEL (1..5)?":BL 

S10 IF (BLtS)+(BL<1) THEN 200 

320 L=BL 

320 GOSUB 1730 

S40 CALL HCHAR(24,1,32, 32) 

2090 X=17 

360 CALL HCHAR (24,17,100) 

270 GOSUB 1300 

3280 FRINT : 

390 FOR [=2 TO 23 

400 IF I=R THEN SSo 

410 CALL HCHAR(24,1,32,32) 
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420 
430 
440 
450 
4460 
470 
480 
490 
300 
310 
320 
wo 
W4Q 
wuO 
WOO 
370 
wBO 
JIIO 
600 
610 
620 
630 
640 
650 
660 
670 
680 
490 
700 
7190 
7209 


730 
740 
730 
74O 
770 
780 
790 
800 
810 
B20 
B20 
840 
B50 
B40 
870 
BBO 
890 


FREE FE 
LETT EEE EE GAMES FOR YOUR 11 99/4K CEECEEEEeH 






IF I=D THEN 470 

FOR J=1 TO -L*(L211)-10% (L510) 

CALL HCHAR (24, RNDXS1+1,99) 

NEXT J 

GOTO 370 

D=INT (RND*¥29) +1 

CALL HCHAR (24,1,102, 32) 

CALL HCHAR (24,D, 32,2) 

D=24-INT (RNDXI) 

CALL HCHAR(D,1,192, 32) 

CALL HCHAR(D, D. 32,2) 

D=1 

GOTO 370 

CALL HCHAR (24,1, 102, 32) 

CALL HCHAR (24, RNDX28+1, 32,3) 

PRINT : 

NEXT I 

CALL HCHAR (RND*23+1,RNDK31+1, 32+71%F) 

CALL HCHAR (24,1,352, 32) 

CALL HCHAR (24, RND*31+1,30) 

IF W=0 THEN 650 

WY=INT (RND&X23) +1 

WX=1 

IF FP=0 THEN 4680 

PY=INT (RNDX23) +1 

PX=1 

GOSUB 1490 

CALL KEY(1,K,S) 

XX=X+ (K=2) -—(K=3) 

YY¥=Y¥+ (K=5) —-(K4+1=1) 

IF (XX< 1) 4+ OVYS1L)+0XX3352) + 
(YY >24)+(S=0) THEN 800 

CALL GCHAR(YY,XX,HIT) 

IF (HIT=32) + (HIT=100) THEN 770 

IF HIT=103 THEN 1150 

IF HIT=99 THEN 800 ELSE 1190 

CALL HCHAR(CY, X, 32) 

Y=YY 

X=XX 

CALL HCHAR CY, X, 100) 

IF W=0 THEN 870 

CALL HCHAR(WY,WX, 32) 

WX=WX+14+5 2 (WX=32) 

CALL GCHAR (WY,WX,HIT) 

IF HIT=100 THEN 1080 

CALL HCHAR (WY,WX, 101) 

IF P=0 THEN 930 

CALL HCHAR(PY,PX, 32) 

PX=PX-1-32%x (PX=1) 
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: WU PEPE 
i DO NDER PET TCT Te TT 


900 CALL GCHAR(PY,FX,HIT) 
910 IF HIT=100 THEN 1080 
920 CALL HCHAR(PY,FX, 104) 
930 IF DD<>i THEN 970 

940 DI=DX 

950 DJ=DY 

960 GOSUB 1800 

970 TIME=TIME-1 

980 IF TIME<>50 THEN 1000 
990 DD=1 

1000 DD=DD~1-(DD<2) 

1010 IF TIME>20 THEN 690 
1020 CALL SOUND (-100, 440,0,441,2, 442, 4) 
1030 IF TIME>1 THEN 690 
1040 REM 

1050 CALL SOUND (1000, 440,0, 441, 2,442, 4) 
1060 PRINT "NO VEGEMITE" 
1070 PRINT "No VEGEMITE !" 
1080 LIVES=LIVES~—1 

1090 X=17 

1100 TIME=200 

1110 Y=1 

1120 PRINT : "NEXT KANGAROO": 
11350 IF LIVES>-1: THEN 370 
1140 GOTO 1620 

1150 CALL SOUND(100, 660, 0, 880, 2,1100, 4) 
1160 SCORE=SCORE+5 

1170 TIME=TIME+20 

1180 GOTO 770 

1190 IF HIT=30 THEN 122¢ 
1200 IF HIT>104 THEN 1560 
1210 GOTO 1080 

1220 SCORE=SCORE+10 

1230 L=L+1 

1240 TIME=TIME+10+(140—TIME) xF 
1250 CALL HCHAR(Y,X,32) 

1260 Y=1 

1270 X=XX 

1280 CALL HCHAR(YY, XX, 100) 
1290 GOTO 370 

1300 F=BRIN(1) 

1310 TIME=—150x* (L=BL) +TIME 
1320 DX=1 

1330 DY=24 

1340 W=BIN(2) 

1350 R=INT(RNDX23) xBIN(3) +1 
1360 P=BIN(4) 

1370 D=BIN(5) 

1380 DD=D 
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EERE PEEP 
LUE TT PE Ee TT GAMES FOR YOUR TI 99/45 CECE 


13990 CALL CHAR (32, "SSAASSAASSAASSAA") 
1400 FG=13-2xD 
14190 BG=3+9xD 
1420 CALL COLOR(1,FG, BG) 
1430 FOR I=2 TO 14 
1440 CALL COLOR (I, 2, BG) 
1450 NEXT I 
1450 D=INT (RNDXK22) kD+1 
1470 Y=1 
1480 RETURN 
1490 REM SOUND 
1500 N=1-(L<10)-(L<5) 
1510 FOR I=N TO S&S 
iS20 CALL HCHAR (RND*234+1,RNDK314+1,104+1) 
1330 NEXT I 
1540 REM CALL SOUND() 
1550 RETURN 
1560 SCORE=SCORE+110—-HIT 
1570 CALL HCHARCYY, XX, 48+110-HIT) 
1580 CALL SOUND (100, 440,1,441,2, 442,35) 
1590 DD=10+10xk (DD=0) 
1600 CALL SOUND (80, 660,1,661,2,4662,5) 
1610 GOTO 770 
1620 DATA 71,997,199, 101, 32,111,118,191,114 
1630 RESTORE 1620 
14640 FOR I=1i TO 9 
1650 READ A 
1660 CALL HCHAR (9, 10+I,A) 
1670 NEXT I 
1680 PRINT ::se:s"YOUR SCORE —-*"3;SCORE: ss: 
1690 PRINT “DO YOU WISH TO CONTINUE 
(CON) OR PLAY A NEW GAME (NEW) " 
1700 INPUT "CON or NEW ?": At 
1710 IF At="CON" THEN 32757 
1720 GOTO 32767 
1720 DATA DOWNUNDER TUNE 
1740 RESTORE 1730 
1750 FOR I=1 TO C3] 
1760 READ D,N,L 
1770 CALL SOUND(D,N,L) 
1780 NEXT I 
1790 RETURN 
19900 DI=DxX+¢(X<DX)—(CX>DX) 
1810 CALL GCHAR (DY,DI,HIT) 
1820 IF HIT=100 THEN 1080 
1830 IF (HITS 2102) KCHIT< 230) x 
CHIFS e112) THEN 1900 
1840 DI=Dx 
1850 DJ=DY+(Y< DY) -CY=DY) 
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CALL GCHAR (DJ,DX,HIT) 

IF HIT=100 THEN 1080 

IF (HITS >102) *(HITS 330) & 
(HIT<>112) THEN 1900 

DJ=DY 

CALL HCHAR (DY, DX, 32) 

DX=DI 


DY=DJ 
CALL HCHAR(DY,DX,112) 
RETURN 


io MIMI 


| 


A 


y 
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TEXAS TENBY 


Texas Tenby is a gambling game played with dice. Writ- 
ten by Tim Hartnell, itis based on the game of Craps. It is 
very simple to play (but not so easy to win). There are 10 
rounds to each game. 

You roll two dice, and add their totals. The game ends 
on the first roll if the dice total 7 or 11. These totals, when 
gained on the first roll, are called ‘a natural’; if you roll 
them you win. 

If youroll2, 3 or 12on the first roll(‘craps') youlose. Any 
other total becomes your ‘point’. To win, you need to roll 
your point again, before rolling a 7. 

You will find that the TI does most of the work for you, 
rolling the dice, checking your wins and losses, and 
keeping track of things. The best way to play it is with a 
friend; take it in turns to ‘roll the dice’, with rolls 1, 3, 5, 7 
and 9 for you, and the other rolls for your friend. 








REM TEXAS TENBY 
CALL CLEAR 
BH="You rolled" 
RANDOMIZE 

G=0 

W=0 

L=0 

G=G6+1 


IF G=11 THEN 490 
PRINT "----~--------------~-------- " 


PRINT “WINS: "sW, "LOSSES: "sL 
PRINT ::"GAME NUMBER"s;G 
GOSUB 270 

IF (A=7)+(A=11)<0 THEN 350 
IF (A=2) + (A=3)+(A=12)<0 THEN 380 
P= 

PRINT :"Your point is"3;P 
GOSUB 270 

IF A=P THEN 350 

IF A=7 THEN 380 

FOR T=1 TO 300 

NEXT T 

PR J NT s Oe a at af, a tt. aig tt welt git galt ite getty gate ty witty tty gta, goa, sang attan rh, ares oe, ole, wn ot, OD 3 
GOTO 190 

A=INT (RNDX6+RNDK6+2) 

IF A>12 THEN 270 

FOR T=1i1 TO 100 

NEXT T 

GOSUB 450 

GOSUB 450 

PRINT ::,B%3A 

RETURN 

PRINT :"You win!" 

W=W+i1 

GOTO 400 

PRINT : "You lose!" 

L=L+1 

FOR T=1 TO 400 

NEXT T 

GOSUB 450 

GOSUB 450 

GOTO 80 

REM SOUND ROUTINE 

NOTE=INT (RND*200) +178 

CALL SOUND ( (RNDkK1000+100) ,NOTE,9, 


(NOTE+220) , 2) 


43 












00 eeeee Rasen 
HEEL EEE GAMES FOR YOUR TT 99/48. FREER 
480 RETURN 


490 REM END OF GAME 
300 PRINT ::"THAT*S THE END OF THE GAME" 


910 FRINT :::"LET’S SEE HOW YOU WENT...” 
w20 FOR T=1 TO 4 

330 GOSUB 450 

340 NEXT T 


30 IF Wel THEN S90 
760 IF LiW THEN 610 


S70 PRINT ::"THE WINS EQUALLED THE LOSSES" 
S80 END 

S90 PRINT : "YOU WON BY"3W3"TO"SsL 

600 END 

610 PRINT :"YOU LOST BY"sl;"TO"sW 

420 END 
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SUPER TYPER 


In this dynamic game from K. Burfitt, youand your typing 
fingers are set against a relentless clock, as you attempt 
to stop randomly-chosen letters of the alphabet from 
crawling to the top of the screen. 

Letters will appear at the bottom ofthe screen — one by 
one — and then start making their way towards the top. 
You have to press the relevant letters on your keyboard 
before the letters reach the top of the screen. You will 
discover that the letters move more and more quickly as 
your score gets higher. There is a high-score feature. 
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REM SUPER TYFER MARK II 


REM 
REM kK BURFITT 
REM 
HS$="SUPER TYPER MARK "&CHRS (127) 
HSCORE=400 
CALL CHAR (127, "FF424242424242FF") 
CALL CLEAR 
RANDOMIZE 

GOTO 3540 

FOR I=0 TO 9 

ACI) =INT (RND*¥26) +65 

BCI) =23 

NEXT I 

FOR I=0 TO 9 

CALL HCHAR(B(I), 1k*2+5,ACI)) 

NEXT I 

CALL KEY(0O,K,S) 

IF S<i THEN 320 

FOR I=0 TO 9 

IF ACI) <>k THEN 310 

CALL VCHAR (1, I[*¥2+5, 32, 24) 
SCORE=SCORE+S 

CALL SOUND (-200,-6,0) 

ACI) =INT (RND*24) +65 

B(I)=23 

FOR II=1 TO LEN(STRS (SCORE) ) 
CALL HCHAR(8+II,2, ASC (SEGS 

(STRS (SCORE) ,II,1))) 

NEXT II 

CALL HCHAR(E (I), I1k24+5,AC1)) 

NEXT I 

X=INT (RNDX10) 
B(X)=B(X)-1-SCORE/100 

IF BCX)<0O.5 THEN 410 

CALL HCHAR (BCX) +1+SCORE/100, X¥2+5, S2) 
FOR I=B(X)+1+SCORE/100 TO BC(X)STEF —1 
CALL HCHAR(I+1, XX245, 32) 

CALL HCHAR(I, X*¥2+5,A(X)) 

NEXT I 

GOTO 180 

FRINT “YOU GOT A SCORE OF ";SCORE: 
FOR I=1 TO 1500 

NEXT I 

CALL CLEAR 

IF SCORE<HSCORE THEN 340 

PRINT "YOU HAVE TOP SCORE " 
PRINT "THE PREVIOUS BEST WAS"s 


HSCORE; "BY "SHS 
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480 INPUT "WHAT IS YOUR NAME ?":HS® 

490 IF LEN(HS$)<25 THEN 520 

SOO PRINT "ONLY 24 CHARACTERS LONG, 
NOT" sLEN(HS#) 3" CHARACTERS PLEASE" 

510 GOTO 480 

S20 HSCORE=SCORE 

S530 CALL CLEAR 

S40 FOR I=1 TO LEN(HS$) 

SSO CALL HCHAR(I, 26, ASC (SEG (HS$,1,1))) 

560 NEXT I 

S70 S#=STR$ (HSCORE) 

S80 FOR I=1 TO LEN(S#) 

590 CALL HCHAR(1, 27, ASC (SEG$(S$,1I,1))) 

600 NEXT I 

610 @$="PRESS A KEY TO START" 

620 FOR I=1 TO LEN(Q$) 

430 CALL HCHAR (4, 1+2, ASC (SEG$ (Q8,1,1))) 

640 NEXT I 

650 CALL KEY(O,K,S) 

660 IF S=O THEN 450 

670 CALL HCHAR(4, 2, 32, 22) 

680 SCORE=0 

690 GOTO 110 


SUPERTYPER 


il 
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FASTERMIND 


Now youcan challenge your computer to the well-known 
game often called ‘Codebreaker’. The computer picksa 
four-digit number (with no digits repeated); you have to 
try and work out what the number is. 

You have 10 attempts to do this. After each guess, the 
computer will respond with a score in ‘blacks’ and 
‘whites’. The blacks represent correct digits in correct 
positions within the code you entered; whites are correct 
digits, but notin the right position. Thisgameis basedona 
program by Toni Baker. 





10 REM TI FASTERMIND 
20 RANDOMIZE 

30 CALL CLEAR 

40 C(1)=INT  (CRNDX9) +1 
IO Z=2 

60 C(Z)=INT (RNDX9) +1 
70 J=1 

80 IF C(J)=C(Z) THEN SO 
90 IF J=Z-1 THEN 120 
100 J=J+l1 

110 GOTO 89oO 

120 IF Z=4 THEN 150 
130 Z=Z+1 
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430 
440 
450 
460 
470 
4950 
AIO 
wOO 
wild 
wal) 
per eS 
740 
—O 
360 
w7O 
280 
DIO 
600 
610 


220 


GOTO 40 

FOR CHANCES=1 TO 10 
INPUT A 

IF A<1000 THEN 160 
IF A+9999 THEN 160 
AL=A 

FOR Z=1 TO 4 

G(Z) =A-10k CINT(A/10) ) 
A=INT (A/19) 

NEXT Z 

R=0 

FOR Z=1 TO 4 

W=0 

IF C¢(Z)<>G6(Z) THEN 300 
B=B+i 

G6(Z)=0 

NEXT Z 

FOR Z=1i TO 4 

IF G(Z)=0 THEN 370 
FOR J=1 TO 4 

IF €(2Z)<26(J) THEN 360 
W=W+1 

NEXT J 

NEXT Z 

PRINT Bs"black"s 

IF B=i1 THEN 470 

IF B<>i THEN 490 


PRINT " "sWs “white”; 
IF We>1 THEN 5310 
PRINT 


IF B=4 THEN S230 

NEXT CHANCES 

GOTO 340 

PRINT " "gs 

GOTO 410 

PRINT "s"'3 

GOTO 410 

FRINT "s''s 

GOTO 430 

PRINT =::"YOU GUESSED IT!" 
PRINT ::"The code was "3 
FOR Z=4 TO i STEP -1 
PRINT STR#&(C(Z))3 

NEXT Z 

FOR Z=1 TO 3000 

NEXT Z 

FOR Z=1 TO 30 

FRINT 

NEXT Z 
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SIMON 


This is a memory-test program, in which you have to try 
and repeat a constantly-growing string of digits. 

The game starts quietly, with one digit. The screen will 
clear, and you have to enter the same number. If youare 
right, the computer will reprint the first number, and 
follow it with a second one. Once the screen has cleared 
again, you have to enter both numbers, in the right order, 
pressing ENTER after each digit. 

This harrowing process will continue until you either 
manage to get 10 digits in a row right, or you make a 
mistake. You will be givenascore at the end of the game 
related to how well you did. 


i al a A . 
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10 REM SIMON 

20 CALL CLEAR 

30 CALL SCREEN(16) 

40 CALL COLOR(2,7, 16) 
SO FOR T=1 TO 10 


A(T) =INT (RND#10) +1 


7O PRINT "XRXKKKKKKKKKKKKKKKK": 
80 NEXT T 
990 FOR Y=1 TO S00 


NEXT Y 

FOR T=1 TO 10 

CALL CLEAR 

FOR Z=1 TO T 

PRINT AZ); 
RT=500+110%A(Z) 

CALL SOUND (50,RT,0) 

NEXT Z 

PRINT 

FOR Y=1 TO 100+4xT 

NEXT Y 

CALL CLEAR 

FOR Z=1 TO T 

INPUT K 

RT=500+1 10%K 

CALL SOUND (-100,RT, 0) 
CALL CLEAR 

IF K<>A(Z) THEN 380 

PRINT K; 

NEXT Z 

FOR Y=1 TO S00 

NEXT Y 

CALL CLEAR 

FOR Y=1 TO 200 

NEXT Y 

NEXT T 

PRINT "YOU ARE THE CHAMP!" 
END 

PRINT ess | 

PRINT “THE NUMBER WAS "; 
FOR Z=1 TO T 

PRINT A(Z)35 
RT=500+100KA (Z) 

CALL SOUND (100,RT,0) 

NEXT Z 
PRINT 
PRINT 
PRINT "YOU SCORED"; 79x%T 
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Here is another great game — which makes effective use 
of TI graphics — written by Kevin Burfitt. Youare alone on 
an asteroid in deepest space when the program begins. 
While scanning the asteroid, you notice it has a high 
metal-to-rock ratio. As a miner, you realise that you will 
be extremely wealthy if you mine the asteroid for its ore. 

But your dreams of easy riches are shattered when you 
see that there is an evil Vogon spacecraft within the 
asteroid. Your task is to move from one side of the 
asteroid (you start on the left) to the exit on the other side, 
before the Vogon gets you. 

You have to drill your way out of the mine. Metaltakesa 
long time to work through, and diamond Is practically im- 
possible to penetrate. When the game is over, the loca- 
tion of the metal and diamonds will be shown to you; you 
do not, however, know where they are when you are try- 
ing to elude the Vogon. Full instructions are given within 
the program. @ 








See eee eee Es 
HHH HHth DIAMOND FEVER 


10 REM DIAMOND FEVER 
20 CALL CLEAR 
30 INFUT "DO YOU WANT 
INSTRUCTIONS “": HUHS 
40 IF SEG#(HUH$,1,1)22"Y" THEN 290 





a0 PRINT " DIAMOND FEVER" 

60) PRINT u Phe Pes Phe Ne Ae Me D1 

7QO PRINT =" written by": 

80 PRINT :" Kevin Burfitt" 

99 PRINT " i983” 

100 PRINT sstsseses 

110 FOR f=1 TO 1000 

120 NEXT I 

130 CALL CLEAR 

140 PRINT " You are alone, on an 


asteroid in deepest space. While 
scanning the rock" 
150 PRINT " you notice it contains an 


aBbnormaly high amount of metals, 
s0 you venture” 


1649 PRINT "down to see if you can mine 


any WHEN SUDDENLY you realise 
that you are not " 
170 PRINT “inside an asteroid but an 
evil VOGON spacecraft !'"s: 


180 PRINT " How can you escape from the 
maze of rock and rubble? Fate was 
on your side, you got a look at the 
diamond" 

190 PRINT "Seam in the rock,but can you 
reach the exit before the " 

200 PRINT :" Vogon gets you PPPP"s: 

210 PRINT : "PRESS ANY KEY TO CONTINUE" 

220 CALL KEY(0, KEY, STATUS) 

250 IF STATUS THEN 240 ELSE 220 

240 CALL SOUND(100, 440,09) 

250 PRINT ::"level 1 is easiest > level 

a for the champions "s:"you have your tr 

usty blaster with" 

260 FRINT “you and it’s running out of 

steam (uraniam actually) but it will c 

ut through rock"s:"N.B. YOU ARE RUNNING 

OUT OF" 

270 PRINT =" gasp” AIR gasp’"s: 

280 PRINT "Use the arrow keys to move": 

"Your blaster will “bleep* when you try 

to cut through rock" 

2970 HIGHEST SCORERS="HIGH SCORE" 
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300 HIGH _SCORE=50 

310 CALL say ayeeae sure ccean 
320 DIAMOND= 

330 ROCK=1 

340 SCORE=0 

350 CALL CHAR (136, "SSAASSAASSAASSAA" ) 
360 DIM A(19,19) 

370 FOR I=1 TO 19 

380 FOR J=1 TO 19 

390 ACI,J) =O 

400 NEXT J 

410 NEXT I 

20 RANDOMIZE 

430 INPUT "LEVEL OF DIFFICULTY ?"sL 
440 SC1=0 

450 CALL CLEAR 

460 IF (L¢O)+(L>S) THEN 430 

470 LEVEL=L 

480 CALL COLOR(10,3,2) 

490 CALL COLOR(11,2,2) 

SOO CALL COLOR(13, 2,3) 

S10 CALL COLOR(14,2, 14) 


520 CALL CHAR(133, "0018245A18240000") 

S390 CALL CLEAR 

540 CALL SCREEN(L+4) 

S50 AX=10 

S60 PRINT sseses" DIAMOND SEAM "ss: 

9370 AY=INT (CRNDK4) +2 

S80 FOR N=1 TO 30+ (LEVEL) 

590 DIR=INT (RNDXS) +1 

600 AX=AX+ (DIR=1)—-(DIR=3) 

610 AY=AY- (DIR=2) —-(DIR=4) + (DIR= 

620 AX=AX—-(AX<1)+(AX>19) 

630 AY=AY—(CAY<1)+(AV>19) 

640 CALL HCHAR (AX, AY, 136) 

650 ACAX, AY) =DIAMOND 

660 NEXT N 

670 FOR N=1 TO 80+4xLEVEL 

580 Y=INT (RND*19) +1 

690 X=INT (RND*18) +2 

7OO IF ACY,X)=DIAMOND THEN 760 

710 IF ACY,X)=ROCK THEN 770 

720 ACY, X)=0 

730 IF (¢(¥=9)+¢0Y=10))*C(X=18) 
+(X=19)) THEN 770 

749 ACY, X) =ROCK 

730 GOTO 770 

760 ACY, X)=0 

770 NEXT N 
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CALL CLEAR 

Y=10 

X=1 

PRINT "LEVEL -> "sLEVEL: 

Rey 

FOR I=1 TO LEN(STR# (SCORE) ) 

CALL HCHAR (2, 22+1, ASC (SEGS 
(STRS (SCORE) ,1I,1))) 


NEXT I 

V=19 

FOR I=1 TO LEN(STRS (HIGH_SCORE) ) 

CALL HCHAR (6, 22+1, ASC (SEGS (STRS 

(HIGH _ SCORE),I,1))) 

NEXT I 

C=0 

FOR I=1 TO LEN(HIGHEST_SCORER®S) 

CALL HCHAR (5S, 22+1, ASC (SEGS 
(HIGHEST SCORERS, 1,1))) 

NEXT 


CALL HCHAR(21,1,112,21) 
CALL HCHAR (1,1, 112, 21) 
CALL VCHAR(1,21,112,21) 
CALL VCHAR (1,1, 112,21) 
FOR I=2 TO 20 
CALL HCHAR (I, 2,136, 19) 

NEXT I 

CALL HCHAR(11, 21,32) 

FOR N=1 TO 8-L 

C=C+1 

IF C>}300+L*100 THEN 1910 

IF SOXLEVEL-C>0 THEN 1110 
TEST=TEST=0 

IF TEST=0 THEN 1090 

CALL SCREEN (16) 

IF TEST=-1 THEN 1110 

CALL SCREEN (L+4) 

IF C<20+L*100 THEN 1130 

CALL SOUND (-200,770,0,769,0,771,0) 
Z=X 

THY 

CALL KEY(O,KEY, STATUS) 

V=Y+ (KEY=ASC ("E") ) — (KEY=ASC ("xX") ) 
X=X+ (KEY=ASC ("S") )—(KEY=ASC("D") ) 
IF (¥=10)%(X=20) THEN 1560 
Y=Y—(Y¥C1) +(Y>19) 

X=X—-(X<1) + (XF19) 

IF (R=Y)*(V=X) THEN 1910 

IF AC(Y,X)=0 THEN 1330 

ACY, X)=A(Y,X)-O.1 
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1240 
12506 
12560 
1270 


1280 
1290 
1200 
1310 
1320 
L330 
13240 
L250 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1420 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
13510 
1320 
1320 
1340 
1550 
13560 
13570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1540 
1670 
1680 
1690 
1700 
1710 
1720 
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IF ACY,X)>O THEN 1290 

SCORE=SCORE+LEVEL 

FOR I=1 TO LEN(STRS(SCORE) ) 

CALL HCHAR(2,22+1, ASC 
(SEG$ (STRS (SCORE), 1,1))) 

NEXT I 

X=Z 

Y=T 

CALL SOUND (-S0, 880, 

GOTO 1340 

REM 

CALL HCHAR(T+1,Z+1, 111) 

CALL HCHAR(Y+1, X4+1, 132) 

REM 

NEXT N 

E=R 

S=V 

VEV— (VEX) (VEX) 

IF ACR,V)=0 THEN 1440 

VES 

GOTO 1470 

CALL HCHAR (E+1,S+1, 111) 

CALL HCHAR(R+1,V+1, 133) 

G=V 

RER~- (REY) + (REY) 

IF A(R,V)=0 THEN 152¢ 

R=E 

V=S 

GOTO 1540 

CALL HCHAR(E+1,S+1, 111) 

CALL HCHAR (R+1,V+1, 133) 

IF (R=Y) *(V=X) THEN 1910 

GOTO 1020 

CHECK =SOxkLEVEL-C 

IF CHECK<O THEN 1640 

IF CHECK<300 THEN 1600 R 

CHECK =300 

SCORE=SCORE+CHECK+50 

IF SCOREYO THEN 1640 

SCORE=0) 

SC1=0 

GOSUR 2130 

SC2=SCORE-SC1 

SC1=SCORE 

PRINT "YOU GOT "sSC2s" THAT TIME"; 


GOSUB 2010 
LEVEL=LEVEL+1 


L=L+1 
FOR I=1 TO 19 
FOR J=1 TO 19 


0) 
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1730 
1740 
17350 
1760 
1770 
1780 
1790 
1800 
1810 
1820 


1830 
1840 
18350 
1860 


1870 


1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
aQO0 
2010 
2020 
2030 
2O4Q 
2050 
20460 
2070 
2O8o 
2090 
2lagd 
2110 
2120 
2130 
2140 
2150 
21460 
2170 
=180 


ACI, J) =0 

NEXT J 

NEXT I 

IF L<8 THEN S30 

L=t 

DI AMOND=DIAMOND+0.5 

ROCK=ROCK+0, 2 

GOTO S30 

IF SCORESHIGH_SCORE THEN 1850 

PRINT "THE HIGH SCORE IS "s3HIGH_SCORE; 
" AND YOU GOT ";SCORE 

PRINT sssse8 

GOTO 310 

HIGH _ SCORE=SCORE 

PRINT "THE HIGH SCORE [SS ": 

HIGH SCORE3;" AND YOU GOT IT" 

INFUT "WHAT IS YOUR NAME 7" 

s HIGHEST SCORERS 

IF LEN(HIGHEST_ SCORERS) <11 THEN 310 

FRINT "NOT THAT LONG" 

GOTO 1870 

GOSUB 1940 

FOR T=1 TO 1000 

NEXT I 

CALL CLEAR 

GOTO 1810 

FOR I=1 TO 3 

CALL, SOUND (100, 220,0,219,0, 218,90) 

CALL SOUND (1,110, 30) 

NEXT I 

CALL SOUND (1500,185,0,184,0,193,0) 

FOR I=1 TO 19 

FOR J=1i1 TO 19 

IF ACI,J)=0 THEN 2090 

IF ACI, J)<ROCK+O.1 THEN 2070 

CALL HCHAR(I+1,J+1,112) 

GOTO 2100 

CALL HCHAR (I+1,3+1, 136) 

GOTO 2100 

CALL HCHAR(I+1,J+1,111) 

NEXT J 

NEXT I 

RETURN 

FOR I=135 TO 214 STEF 10 

CALL SOUND (100,1,0,1+1,0,1+2,90) 

NEXT [I 

CALL SOUND (200, 40000, 30) 

CALL SOUND (300,110,0,111,0,112,0) 

RETURN 
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FINAL 
FRONTIER 


You won't have much time to catch your breath in this 
action game from Damon Pillinger. 

Once again, it is you who are the last line of Earth's 
defence. You use the up and down arrow keys to position 
your craft, and the space bar to fire. The game becomes 
more and more difficult as it progresses. 
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10 REM xk FINAL FRONTIER xx 

<0 REM 

50 REM XxX D&D FROGRAMMING xk 

40 REM 

JO REM XX OF GAMETRONICS xx 

60 REM xXxXXxk MELBOURNE xxxXxXx 

70 REM 

80 REM xXxXxXkK WRITTEN BY xxxx 

90 REM X*KXKX*k DAMON KKKK*KX 

100 REM 

110 LEVEL=1 

120 CALL SCREEN (2) 

130 K=28 

140 CALL CLEAR 

150 LEVEL=LEVEL+3 

160 HP=10 

170 RANDOMIZE 

180 DED=0 

190 CALL SCREEN (2) 

200 CALL COLOR(9,64,1) 

210 CALL COLOR (8,353,353) 

220 CALL COLOR(10,4,1) 

250 CALL COLOR(3,7,1) 

240 CALL COLOR(11,11,1) 

2ag9 CALL COLOR(2,14,1) 

260 DIM F1 (3) 

270 P1(1)=10 

280 P1(2)=15 

290 P1i(3)=22 

2090 CALL CHAR (49, "S15154656146ABC566") 
S10 CALL CHAR (SO, "S13S6380FED9BCA71") 
320 CALL CHAR (51. "55547656146FE6154") 
3230 CALL CHAR(40, "OOBOCOFO8F7C7FFO") 
S40 CALL CHAR (41, "GQO0Q0D0000CO3S0FFOO") 
220 AS=“OOD000000F 3FO0100" 

360 BS$="O03F 7FSEFCFOFSOO" 

370 CALL CHAR(96, A$) 

280 CALL CHAR(97, BS) 

390 CALL CHAR(90, "FFFFFFFFFFFFFFF" ) 
400 CALL CHAR(104, A$) 

410 CALL CHAR (48, "OOO000000000FF") 
420 CALL CHAR(105, BS) 

430 CALL CHAR(112,A$) 

440 CALL CHAR(113, 88) 

450 CALL HCHAR (1, 1 370, 32) 

460 CALL HCHAR(22 vd 370,32) 

470 FOR T=K TO 1 STEP -—(LEVEL/10) 
480 FOR Q@=1 TO INT(LEVEL/3. 335333353) 
490 IF P1(Q)=999 THEN S60 
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S00 CALL HCHAR(P1(@),T, 32,4) 

510 Pi (Q)=F1(@)+CINT( (RNDK2)-. 91) ) 
S20 IF (P1() 22) k(P1(O)<22) THEN 540 
S30 P1(Q)=INT(RNDK10) +3 

S40 CALL HCHAR(P1(Q),T, 88+Q%8) 
550 CALL HCHAR(F1(Q), T+1,89+0%8) 
540 NEXT @ 

570 CALL KEY(3, X,Y) 

S80 IF Y=O THEN 690 

590 CALL HCHAR (HF, 2, 32, 2) 

G00 IF (X=69) (HP >2) THEN 620 
610 GOTO 630 

620 HP=HF-1 

620 IF (X=86) k(HF<21) THEN 650 
640 GOTO 460 

650 HP=HF+1 

660 CALL HCHAR (HF, 2, 40) 

670 CALL HCHAR (HP, 3,41) 

680 IF X=32 THEN 720 

690 REM END OF YOUR MOVING LOOP 
700 NEXT T 

7109 GOTO 980 

720 CALL HCHAR (HP, 4, 48, 28) 

730 CALL SOUND (-70,-7,0, 300,7) 
740 FOR Y=1 TO INT(LEVEL/3.3) 
750 IF Pi (Y)=HF THEN 800 

760 NEXT Y 

770 CALL HCHAR (HP, 4, 32,28) 

780 CALL HCHAR (HF, 3, 41) 

790 GOTO 700 

800 FOR A=1 TO 5 

810 CALL HCHAR(P1(Y),7,49,2) 

820 CALL HCHAR(P1(Y),7,50, 2) 

330 CALL HCHAR(PI(Y), 1.51.2 

840 CALL SOUND (-200, -7, 0) 

850 NEXT A 

860 CALL HCHAR (HF, 4, 32,28) 

870 CALL SOUND (-300,-7,0) 

880 DED=DED+1 

890 SCORE=SCORE+ (LEVEL—2) k15 
900 IF DED? >INT(LEVEL/3.3) THEN 960 
910 LEVEL=LEVEL+1 

920 IF LEVEL<>14 THEN 950 

950 ESK/1.5 

940 LEVEL=4 

950 GOTO 170 

940 FA CY) =999 

970 GOTO 660 

980 FOR H=1 TO 5 


60 
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Pu 
<3 
300 


1 TO LEN(XS(Y)) 
1110 CALL HCHAR(Y+1,T, ASC (SEGS(X$(Y),T,1))) 


1 TO 16 
OO CALL SCREEN (T) 
1 TO 4 


) 


CALL COLOR(S 
1080 X$(4)="YOUR SCORE IS 
"LEVEL"; LEVEL-— 


> DIM X#(4) 
1050 X$(1)="YOU HAVE LOST..." 


CALL CLEAR 
) FRINT "SCORE="3 SCOR 


NEXT Y 


» X¥$(2)="THE ALIENS HAVE WON..." 
1140 FOR AA=1 TO 


- Tr - x 
> 

- sae f am - 
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FENCED IN 


James Turner has contributed this hard-to-beat game, in 
which you have to get from the top left-hand corner of the 
screen to the bottom right-hand one, through a field of 
electric fences. 

You are only allowed to touch five fences before you 
die (and the graphic result of dying is enough to tempt 
you to do it deliberately). Each time you touch a fence, 
you'll clear a few other fences away; this will make it 
easier to get to your goal. 

In this game of strategy, there is no back-tracking (you 
can only move right, and down) so you must work out 
your moves in advance. You use the 'M’ key to move 
down, and the 'L’ key to move right. 

Vel, ae ear - : aa 


sy ~~ 4 . ® ’ 
.‘ ‘ Ps 


ee Said ena 
a 
all on ee Sonne a : 








eK ANic all, ol 
ener a sollte. A Wie Mi, wh toa Wall 
In? ~. Allin, 


Wt ll, Medley fans can 
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Mlte alte. : “alldre tlle 0. oan gg tn ee 


tJ 


10 REM FENCED IN 

=O CALL CLEAR 

30 PRINT TAB(9)3;"FENCED IN! ":3 

40 PRINT TAB(13)3;"By"s:: 

JO PRINT TAB(8)3s"James turner"ssssss23 
60 FOR IT=1 TO 1000 

7O NEXT I 

80 CALL CLEAR 

90 CALL CHAR(129, "OOFFOOFFOOFFOOFF") 
100 CALL CHAR (130, "AAAARAARARAAAAAA" ) 
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FOR Z 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


LIFE= 





CHAR (131, "FFOOFFOOFFOOFFOO" ) 
CHAR (132, "SSSSSS5555555555") 
CHAR (133, "OO7F405F50575455") 
CHAR (134, "OOFEO2FAOAEA2ZAAA" ) 
CHAR (135, "AAZAEADAFADZFEDO" ) 
CHAR (136, "S55457505F407F00") 
CHAR (144, "FOBCDFABD73BOFO3") 
CHAR (152, "1818107C1028286C") 
CHAR (48, "C3C3C3C3C3C3FFFF") 
CHAR (112, "995A001818004281") 
CHAR (94, "99DBBD9I999ASC3FF" ) 
CHAR (40, "40E04040F048241E") 
=1 TO § : 

CLEAR 

HCHAR (1, 1,133) 

HCHAR (1,2, 129, 30) 

HCHAR (1,32, 134) 
VCHAR (2, 32, 130, 22) 
HCHAR (24, 32,135) 
HCHAR (24, 2, 131, 30) 
VCHAR (2, 1,132, 22) 
HCHAR (24, 1, 136) 

HCHAR (1,16, 53) 

S 


RANDOMIZE 


FOR I 


=1 TO 200 


R=INT (RNDXK22) 
C=INT (RNDX29) 


CALL 
NEXT 


=" 
= 


B=2 

CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


HCHAR (R+2, C+2, 144, 2) 
I 


COLOR (3,7, 16) 
COLOR (12, 11, 4) 
COLOR (14, 14, 4) 
COLOR (13, 2,3) 
COLOR (14,2,3) 
HCHAR (23,31, 48) 
HCHAR (22, 31,32) 
KEY (0, K,S) 
HCHAR (A, B, 152) 


IF S=0 THEN 300 
IF K=76 THEN 340 ELSE 600 


CALL 


GCHAR (A, B+1, X) 


IF X=144 THEN 750 
IF B+1=32 THEN S00 


B=B+1 
CALL 
GOTO 


HCHAR (A, B~1, 32) 
S00 
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00 
610 
520 
630 
640 
650 
640 
70 
680 
FO 
FOO 
710 
720 
730 
740 
FSO 
760 
770 
780 
790 
Boo 
810 
B20 
830 
840 
850 
840 
870 
880 
BIO 
900 
910 
920 
930 
940 
950 
960 
970) 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
10460 
1070 
1080 


eee eee 
PEELE GAMES FOR YOUR TI 99/4A HEE 










IF K=77 THEN 610 ELSE Soo 
CALL Seren 61563) 

IF X=144 THEN 75 

IF A+1=24 THEN eh6 

A=A+1 

CALL HCHAR(A-1,B, 32) 

IF A=23 THEN 670 ELSE 500 
IF B=31 THEN 680 ELSE 500 
CALL HCHAR (23,31, 96) 
PRINT "KKKKKKKKYOU DID ITHEXKKKKKK" 
CALL SOUND (150, 784,0> 

FOR H=1 TO 200 

NEXT H 

NEXT Z 

GOTO 1040 

CALL HCHAR (A,B, 112) 

CALL COLOR(11,7,4) 

CALL SOUND (100, -3,0) 

FOR I=1 TO 15 

NEXT I 

CALL SOUND (100,-3,0) 

FOR I=1 TO 40 

NEXT I 

CALL SOUND (100,-%,0) 
LIFE=LIFE~1 

IF LIFE<O THEN 910 

CALL HCHAR(A-1,B-1, 32,3) 
CALL HCHAR(A,B-1, 32,3) 
CALL HCHAR (A+1,B-1,32, 3) 
CALL HCHAR(1,14,LIFE+4Q9) 
GOTO 500 

CALL HCHAR (A,B, 40) 

FOR I=1 TO 3 

CALL SOUND (400, 262,90) 
NEXT I 

CALL SOUND (400,311, 0) 
CALL SOUND (300, 294,0) 

FOR I=1 To 2 

CALL SOUND (70, 247,0) 

CALL SOUND (300, 262, 0) 


NEXT I 

FRINT "TOO MANY TOUCHES !":"YOU ARE DEAD 
END 

GOTO 1030 

CALL CLEAR 

PRINT TABR(6); "CONGRATULATIONS! '":: 

PRINT TABR(S)3; "YOU HAVE ESCAFED":::: 

GOTO 1070 

END 
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then press the ENTER 


the clever computer will tell you not only 


e 


eeeeeoe 80888008 


e 


AA OO 


, but how much change you have in your 


This program tests your powers of mental arithmetic and 
A series of instructions will appear on the screen. You 


have to carry out each instruction 


key. Atthe end 





demonstrates that your computer can apparently read 


minds. 
how old you are 


pocket! 












290 
300 
310 
320 
330 
240 
ayer] 
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REM MENTO 


GOSUEB 
PRINT 
PRINT 
FRINT 
GOSUE 
FRINT 
PRINT 
FRINT 


320 
"MULTIPLY YOUR AGE BY" 
"TWO, THEN ADD FIVE" 


00 

"NOW MULTIPLY THAT" 
"BY FIFTY, AND" 
"SUBTRACT 365" 


PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUE 
PRINT 
PRINT 
FRINT 
PRINT 
INFUT 


OO 

"NOW ADD THE AMOUNT" 
"QF CHANGE IN YOUR" 
"POCKET" 

SOO 

"NOW GIVE ME THE” 
“NUMBER YOU*VE ENDED" 
"UP WITH" 


A=At+115 
B=INT (A/100) 
=A-100KE 


GOSUB 
PRINT 
PRINT 
FPRINT 
END 

PRINT 
INPUT 


ber att aal Y ta 
me 


"YOU HAVE": As "CHANGE" 


"AND YOU?RE";B; "YEARS OLD" 


ZS 


CALL CLEAR 


FOR T= 


1 TO 10900 


NEXT T 
RETURN 
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YO Ol ie 
San eecaneeae RACE OF THE LIZARD MEN 4 


RACE OF THE 
LIZARD MEN 


Wilton J. Faberge's user-defined graphics (which do, I 
suppose, look vaguely like ‘lizard men’) trundle slowly 
across the screen ina race forthe winner's laurel wreath. 
Place your bets, and then see iflizard man one ortwo gets 
across the screen first. 

If you wish to change their appearance, modify the 
strings A$ to H$ in lines 500 to 570. 
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Pte 
oa ty 
SEGREREEE 
10 REM RACE OF THE LIZARD MEN 

20 RANDOMIZE 

oO CALL CLEAR 

40 GOSUB 490 


30 AL=& 

60 A2=16 

79 Bi=2 

80 Ci=2 

90 C2=2 

100 B2=2 

110 J=0 

120 IF 2k CINT(J/2))=J3 THEN 180 
130 C=128 
140 D=130 
150 €=129 
160 F=131 
170 GOTO 220 
180 C=144 
190 D=146 
200 E=145 
210 F=147 
220 J=J+1 


230 CALL HCHAR(A1,B1,C) 

240 CALL HCHAR(A1,C1,32) 

250 CALL HCHAR(A1, (Bit+1),D) 

260 CALL HCHAR( (A1+i),C1, 32) 

270 CALL HCHAR((A1+1),B1,E) 

280 CALL HCHAR((A1+1), (B11) ,F) 
290 CALL HCHAR (A2, H2,C) 

S00 CALL HCHAR(A2, C2, 32) 

310 CALL HCHAR(A2, (B2+1),D) 

S20 CALL HCHAR( (A2+1),C2, 22) 

S30 CALL HCHAR( (A2+1),B2,E) 

340 CALL HCHAR((A2+1), (B2+1),F) 
350 C1i=B1 

360 C2=B2 

370 Bi=Bi+RND 

380 B2=B2+RND 

S90 IF (B1230)+(B2>30)<0 THEN 4106 

400 GOTO 120 

410 IF B1<B2 THEN 440 

420 PRINT ::"THE WINNER IS NUMBER ONE" 
30 GOTO 430 

440 PRINT ::"THE WINNER IS NUMBER Two" 

450 GOTO 450 

460 J=2 

470 GOTO 230 

480 END 

490 REM DEFINE CHARACTERS 
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OS a 
See SEeneeeee RACE OF THE LIZARD MEN 7 


JOO AS="QOO00000002060404" 
210 BS="OONONNO0ONLOSO2Z0O2" 
w2O C$="COEQOOC4SC4C4FBCO" 
530 Dt="COCOFS88s8s0sia0a" 
340 E$="0000000609090501" 
290 FS="0O101120600010602" 
360 GS="607000808080COB0" 
370 H$="OO00804080000000" 
v80 CALL CHAR (128, AS) 

3970 CALL CHAR (129, BS) 

600 CALL CHAR (130,C4) 

610 CALL CHAR (131,D4%) 

620 CALL CHAR(144,E$) 

630 CALL CHAR(145,F%) 

640 CALL CHAR (146, GE) 

650 CALL CHAR (147,H%) 

660 RETURN 
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ESET ices ron vour ree/an So 
ENCHANTED 
FOREST 


This ‘mini-Adventure’, based on a program created by 
Toni Baker and converted for the TI by Tim Hartnell, 
places you within a strange forest...made up entirely of 
numbered triangles. 

The occupants of the Enchanted Forest, and the effect 
on you when you move into a triangle where they are, 
are as follows: 

FAIRIES — these will not harm you, but will move 
you at random to anew triangle within the 
forest. 

GOBLINS — these are definitely nasty, and will kill 
you if you have the temerity to move into 
any of their sectors. 

THE DRAGON — land in his triangle, and you're a 

goner'! 

The aim of the game is to kill the dragon. You have a 
limited number of arrows (set at five in line 40). You fire 
them into any segment (which you think contains the 
dragon) by entering the number of the triangle, preced- 
ed by a minus sign (that is, you enter -4] to shoot into 
triangle 41). You'll scon become quite adept at working 
out where the dragon is likely to be — although he does 
move from game to game. 








we 5 
caccse0 ENCHANTED FOREST  _- 


10 REM ENCHANTED FOREST 
=O DIM ASO) ,B(30) 

30 CALL CLEAR 

40 G6=5 

2O GOSUB 1000 

60 PRINT ::s 

79 FOR Z=0 TO 30 

BO A(Z)=0 

90 NEXT Z 

100 FOR Z=o TO 10 

110 O=INT CRNDKSO) +1 
120 IF A(Q)=1 THEN 110 
130 A(Q)=1 


160 FOR I=1i1 TO 20 

170 PRINT "XXXKKKKXKKKKKKKKKKKKKKKKKKKK" 
180 NEXT I 

190 GOSUB 1000 

200 PRINT :: "THERE ARE FAIRIES HERE " 
210 FOR Z=1 TO S00 

220 NEXT Z 

250 X=34+2k (RND*416) +1 

240 X=INT (X) 

250 Y=7 

260 CALL CLEAR 

270 FOR I=1 TO 15 


300 PRINT :3::"YOU ARE NOW IN SECTOR"sX 
310 FOR J=1 TO 200 

320 NEXT J 

320 GOSUB 1000 

340 Q=—1 

3990 FOR Z=0 TO 10 

360 IF B(Z)<>X THEN 380 

370 Q=INT(Z/5) 

S80 NEXT Z 

390 IF Q=0 THEN 200 

400 IF @=1 THEN 850 

410 IF @=2 THEN 880 

420 FOR U=1 TO S 

430 PRINT 

440 NEXT U 

450 PRINT "XXKKKKKKKKKKKKKKKKKKKKKKKKK" 
460 PRINT 2:3: 

470 PRINT "YOU CAN MOVE TO"3sX-i3s X+is x+y 
480 GOSUB 1000 

490 PRINT :: 
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500 
410 
620 
630) 
640 
650 
540 
&70 
580 
690 
7OO 
710 
720 
73Q 
740 
730 
760 
77Q 
780 
799 
BOO 
810 
820 
830 
B40 
850 
B40 
870 
880 
890 
9a0 
910 
920 
930 
940 
9350 
960 
970 
980 
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FOR Z=0 TO 2 

A(Z)=0 

NEXT Z 

FOR Z=0 TO 10 
D=8(Z)-X 

IF ABS(D)=1 THEN 900 


IF D=Y THEN 900 

NEXT Z 

D=ABS (D) 

IF (D=1)+¢(D=6)+(D=8)<0 THEN 920 
PRINT :: "H##HFHEHHHHHHHHHHEHSRHRHEH " 
FOR J=i TO Soo 

NEXT J 

PRINT 3:3: 

IF ACO)=1 THEN 940 

IF A(1)=1 THEN 960 

GOSUB 1000 

IF A(2)=1 THEN 980 

O=2 

FRINT : 

INPUT "YOUR MOVE? "iM 

FOR J=1 TO 3500 

NEXT J 

IF MQ THEN 770 

X=M 

Y=-Y 

GOTG 260 

IF M=-B(iQ0) THEN 410 

G=G-1 

PRINT ss: 

PRINT "YOU HAVE":G:" ARROWS LEFT" 
PRINT 

IF G>a THEN 700 

PRINT :"SO THE GAME IS OVER" 
END 

PRINT :"AND THE GOBLINS HAVE" 
PRINT "KILLED YOU" 

END 

PRINT :"YOU HAVE FOUND THE DRAGON! " 
END 

ACINT (2/35) )=1 

GOTO 370 

A(2)=1 

GOTO 600 

FRINT “FAIRIES NEARBY" 

GOTO 680 

PRINT "GOBLINS NEARBY " 

GOTO 680 

FRINT “>> DRAGON NEARBY <<" 


T2 





990 GOTO 480 

1000 FOR MUSIC=1 TO INT(RND*4) +1 

1010 NOTE=INT (RND*263) +262 

1020 TIME=INT (RND*9O) +20 

1030 CALL SOUND (TIME, NOTE, 0, 
(NOTE+9) ,O, (NOTE-6) , 0) 

1040 NEXT MUSIC 

1050 RETURN 





73 












CHoCHHHere GAME a0 el 
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FROG PLAGUE 


The frog's life is in your hands in this program from 
Damon Pillinger. 


Asthe REMstatements point out, you use the 'S’ and ‘D' 


keys to move left and right, in an attempt to avoid the ob- 
jects moving up the screen towards you. You have to 
keep out of the way of leaves, a motorboat, rocks, logs 
and (hardest of all) bridges. 


This is a game which, despite all your efforts, you are 


bound to lose sometime. Walls on the screen constantly 
move inon you, making it harder and harder to avoid the 
dangerous objects. 





~\ 
7; ues il 


tall! 


10 
=O 
=O) 
40 
ar 
60 
70 
80 
9O 


100 REM 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


Wy 


Hal MMe, or il PAU... 









= ail TT MT 
sa al Wy, Me es 


° cal a anit t I 


K*KKk FROG PLAGUE Xxxx 
*KKK GAMETRONICS xxx 
*xkK DAMON FILLINGER xxx 


USE S AND D TO MOVE 
LEFT AND RIGHT. THE OBJECTS 
YOU ARE AVOIDING ARE: 
LEAVES, MOTORBOAT 
ROCKS, LOGS AND BRIDGES 


110 REM THE WALLS MOVE IN AS 
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HHH ——-FROGPLAGUE 


REM THE GAME CONTINUES... 
CALL CLEAR 

CALL SCREEN (2) 

SCORE=0 

CALL COLOR(9,14,2) 

CALL COLOR(10,7,2) 

CALL COLOR(11,11,2) 

CALL COLOR(12,8,2) 

CALL COLOR(4,2,15) 

CALL COLOR(2,3,2) 

LEV=2 

T=09 

CALL CHAR (40, "0000C33C0187E9918") 
CALL CHAR (104, "OO7OFE7E1LE1E0101") 
CALL CHAR (96, "10103838383983810") 
CALL CHAR (112, "ZO3C3C3C783C3C00") 
CALL CHAR (57, "FF101010101010FF") 
CALL CHAR (120, "0001501878F8FA20") 
CALL CHAR(54,"") 

CALL CLEAR 

FOR LEV=1 TO 11 STEP .02 

PRINT TAB(RNDX ((22—(LEVK2))+10)) 3 
CHRS ( CINT ((RNDK4) )) K8+96) 

IF (LEV>O) * (INT (RNDK15)=10) THEN S30 
CALL HCHAR (23, ((22—(LEVK2)+10)+1),56) 
CALL HCHAR(8+LEV, T-1, 32, 4) 

CALL HCHAR (9+LEV, T-1, 32,4) 

CALL GCHAR (10+LEV, T,M) 
SCORE=SCORE+LEV/4 

IF (M<>32) *(M<>40) THEN 520 

CALL HCHAR(10+LEV,T, 40) 

CALL KEY (3, X,Y) 

IF Y=0 THEN 500 

IF X<>83 THEN 470 

IF T<2 THEN 470 

T=T-1 

IF X¢>68 THEN 500 

IF T>((22—(LEV*2)+10)) THEN S00 
T=T+i 

NEXT LEV 

GOTO 310 

GOTO S50 

CALL HCHAR(21,1,57, 

CINT (RNDX ( (22—(LEV#2) )+10))) +1) 
GOTO 350 

CALL CLEAR 

PRINT "YOU ARE DEAD" 

FRINT : "YOUR SCORE IS";SCORE 
PRINT so5593 
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PEELE Hh GAMES FOR YOUR TI 99/48 FEEL 
KAMIKAZE, 
PILOT 


Take your fate in your hands and steer this tiny plane 
down a twisting, turning tunnel. The plane will drift toone 
side throughout the game. As you attempt to keep it 
under control, touch any key and you will correct the 
drift. 

There is a choice of nine levels, with the higher 
numbers representing the higher (almost impossible) 
levels. Once you think you have developed some skill at 
this game, make it harder by reducing the number of 
spaces (the game is listed with seven spaces) in lines 260 
and 270. 














REM KAMIKAZE PILOT 
GOTO Sea 
SIDE=SIDE--1 


40 GOTO 320 


CALL. CLEAR 

PRINT "ENTER A NUMBER FROM 1 TO 9" 
PRINT :"1 IS EASIEST, 9 IS HARDEST" 
CALL KEY (3,KY,KE) 

IF KK=0O THEN 80 


GOTO 360 

Y=10xyY 

CALL CLEAR 

SC=0 

GOSUB 480 

SIDE=16 

DOWN=12 

CALL GCHAR(17,SIDE, X) 

IF X=65 THEN 620 

CALL HCHAR (DOWN, SIDE, 5&4) 
FOR T=1 TO Y 

NEXT T 

D=INT (D+RNDX3—-RNDX3S) 

IF D<3s THEN 540 

IF D?29 THEN S360 

CALL HCHAR (DOWN, SIDE, 32) 


PRINT TAB(D);"A a" 
PRINT TAB(D);"A a" 
SC=SC+27 


CALL KEY(3,KY,KK) 
IF KK=0 THEN 30 
SIDE=SIDE+2 

IF SIDE<4 THEN S80 
IF SIDE?28 THEN 600 
GOTO 170 
END 

Y=—-(KY=131) 

Y=-2k (KY=132) 

mm AK CK Y=135) 

Y=~4% (KY=130) 
Y=E-SxkK (KY=142) 
Y=~-6*% (KYV=140) 
Y=-7RCKY=129) 
Y=-86% (KY=154) 
Yx=Ok (KR Y=1435) 
CALL CLEAR 
CALL SCREEN (5S) 
GOTO 110 
AS="49221CO8493E1C08" 
BS="0810202018040810" 
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WOO 
o7O 
Wao 
390 
SOO 
610 
620 
650 
640 
630 
660 
& 70 
680 
690 









Fe 2 OR 
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CALL CHAR (464,A$) 

CALL CHAR (465, BRS) 

D=10 

RETURN 

D=S 

GOTO 260 

D=29 

GOTO 260 

SIDE=4 

GOTO 320 

SIDE=28 

GOTO 340 

PRINT ::"THE END! !" 
CALL HCHAR (DOWN, SIDE, 54) 
CALL SOUND (2000, 440, 2,659, 2, 880, 2) 
CALL SOUND (2000, -2,2) 
PRINT ss: 

PRINT “YOU SCORED";:SC 
FOR T=1 TO 1000 

NEXT T 
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You can now indulge your wicked, secret vice of gambl- 
ing. The program demonstrates how effective moving 
graphics can be in ordinary BASIC. 

The game isa horse-racing one. After you have placed 
your bets, the race will begin. The barriers move past 
your horses as they make their way down the track (ex- 
tremely effective graphics are used for the horses’ legs). 

Full instructions are contained within the program. If 
you want to alter the speed at which the horses run, 
modify the random ‘number generated within the pro- 
gram. You can also change the horses’ names by chang- 
ing the DATA statements. 
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1O;1REM xxx DARING DAMON Xxx 
20 REM 

30 REM x BY D&D 

40 DIM ML (10), BET (10) ,HOR(10) 
50 RANDOMIZE 

60 CALL CLEAR 

7Q CALL SCREEN (3) 

80 FOR T=1 TO 190 

90 ML (T) =2000 


NEXT T 

FOR T=9 TO 12 

CALL COLOR (T.2,4) 

NEXT T 

FRINT "welcome to the texan race 
"meeting ":,, "your credit with 


daring": "damon is set at 
$2000":"there is no maximum bet." 


GOSUR 1230 

CALL CLEAR 

INPUT "HOW MANY PLAYERS “:FLA 

IF PLA>8 THEN 170 

CALL CLEAR 

PRINT "hi, "“:" i am daring damon. 
i am":"called this because of my 
incredibly high odds.",,,," be 
warned i have inside tips." 

PRINT "so heed my odds.but i have 
been known to be wrong." 


GOSUB 1230 

DIM HNAS (10) ,ODD(4) 
HNAS(1)="NAG HEAP - 
HNAS(2)="COSMIC RUN " 
HNAS (3) ="PRINCE - 
HNAS (4) ="DASSY ; 
HNAS (5) ="FFFLYER ‘i 


HNAS (6) ="EXTENDER 7 

HNAS (8) ="VECTOR 
HNAS (9) ="FLAT FEET . 

HNAS (10) ="MULE : 

HNAS (7) ="DOFFY : 

CALL CLEAR 

CALL SCREEN(13) 

PRINT " XDARING DAMON" 
PRINT 4.355; "NO.NAME ODDS" 
CHANCE=—-CHANCE 
RRS$="1111111111" 

PRINT "XKKKKKKKKKKKKKKKKKKKE",, 
FOR T=1 TQ 3 
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wid 
20) 

wo 
J4Q 


a for ©) 
TOW 
370 
wBO 
DIO 
400 
610 
&20 
630 


640 
650 
440 
670 
480 
690 
7OO 
710 
720 
730 
FAO 
750 
760 
770 
780 
790 
BOO 
B10 
820 
B30 
840 
B30 
850 


J=INT C(RNDX10) +1 
IF SEGS(RR#,J9,12)<>"1" THEN 420 
RRS=SEGS (RR$, 1, J) &"2"&SEGS$ (RR$,I+1, 10) 
ODD (T) =INT CRNDX (30) ) +20 
DTS="K"&SSTRE(T)&"KK"& (SEBS (CHNAS (J), 
1,20) )&"XK"&STRS(ODD(T))&"/1" 
PRINT DT$: 
NEXT T 
PRINT ,; 
FOR T=1 TO PLA 
PRINT "PLAYER "sT3" WHICH HORSE?" 
INPUT HOR (CT) 
IF HOR(T)<6 THEN S60 
PRINT "THERE ARE ONLY 5S HORSES 

IN THE RACE. STUFID....." 
GOTO 320 
NEXT T 
CALL CLEAR 
FOR T=1 TO PLA 
PRINT "PLAYER "3T3"WHAT IS YOUR BET" 
IF ML¢(T)=0 THEN 4650 
INFUT BET(T) 
IF BEF(T)<=ML(T) THEN 650 


PRINT ,, "BE VERY LUCKY YOU 
ONLY HAVE $"5 MLCT) 


GOTO 610 

NEXT T 

GOSUB 1230 

CALL CLEAR 

DIM HORS (2,2) ,RL$ (2) 

HORS (1,1) ="O000009F7F1F2040" 
HORS (1,2)= "OO040F OC 080008040" 
HORS (2, 1) ="O00000030F 030201" 
HORS (2.2) ="QOOB1LEFSFOEO1020" 
RLS (1) ="OOO00FFAAFF 444444" 
RLS (2)="QQOO0O0FFSSFF1L11111" 
GAT 1$="0003010101030408" 
GATI$="O00CO808080C02010" 
GATZ$="1121C142FFO000000" 
GAT4$="8884E342FFO0O00000" 

FOR T=1 TO & 

ACT) =4 

NEXT T 

CALL CHAR (104,RL4(1)) 

CALL eee 

CALL. HCHAR(14,1,104, 32) 

CALL CHAR (112,GAT1$) 

CALL. CHAR (114, GAT2%) 
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B70 
880 
BIO 
FOO 
910 
920 
30 
940 
959 
960 
970 
980 
990 
1o00 
1010 
10920 
1030 
1040 
LOSO 
1060 
1070 
1080 
1990 
1100 
1110 
1120 
1130 
1140 
1159 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
132 
a0 
1340 


1350 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 






APE : 
HHH] GAMES FOR YOUR TT 99/4A 


CHAR (113, GAT3$) 
CHAR (115, GAT4$) 
HCHAR (7,5, 115) 
CHAR (94, "00") 
COLOR (9,2, 4) 
COLOR (10,2, 3) 
HCHAR (8, 1,96, 192) 


FOR T=1 TO 30000 
FOR F=1 T0 & 


CALL 


HOHAR (8+ (F~-1), INT CACF)) 97) 


CALL HCHAR (8+(F-1), INTCACF))+1,98) 


CALL HCOHAR(8+(F-1),INT(CACF) 2-3, 96,5) 


Fi=RNDX= 


OD1= 


(ODD (CF) /60) 


CHANCE=F 1-OD1 

IF CHANCE+0 THEN 1040 
CHANCE=— (CHANCE > 

ACF) =ACF) +CHANCE 


IF T 
CALL 
CALL 
CALL 
CALL 


+2 THEN 1100 
HCHAR (6, 4, 112) 
HCHAR (6,5, 113) 
HCHAR (7,4, 114) 
HCHAR (7,5, 115) 


IF Te 25 THEN 1150 


CALL 
CALL 
CALL 
CALL 


HCHAR (4, 4, 32) 
HCHAR (7,4, 104) 
HCHAR (6, 5, 32) 

HCHAR (7,5, 104) 


GH=INT((SIN(CF/6) ) ko) +1 


CALL 
CALL 
CALL 
IF A 
IF A 
NEXT 
NEXT 


PRINT ,,"PRESS ANY FEY TO CONTINUE" 


CALL 


CHAR (98, HORS (GH, 2) ) 
CHAR (97, HORS (GH, 1) ) 
CHAR (104, RL$ (GH) ) 
(F)>20 THEN 1270 
(F)>29 THEN i320 

F 

T 


KEY (3, X,Y) 


IF Y=0 THEN 1240 
RETURN 


CALL 
CALL 
CALL 
CALL 
GOTO 


HCHAR (4, 28, 112) 
HCHAR (4, 29, 113) 
HCHAR (7, 28, 114) 
HCHAR (7, 29, £155) 
200 


FOR J=1 TO 3 


HI=0 


FOR T=1 TO 5S 


IF A 


(TOXACHID THEN 1370 
82 









A(HI)=0 

GOTO 1490 

NEXT J 

FOR T=1 TO PLA 

ML (T) =ML (1) -INT (BET (T)) 

IF ML(T)>=0 THEN 1470 
ML(T)=0 

PRINT "PLAYER ";T:" ROTTE 

N EGGS. YOU HAVE BEEN BUSTED. " 
NEXT T 

GOTO 1590 

FOR GG=1 TO 3 

FOR T=1 TO PLA 

IF HOR(T)<2WI (GG) THEN 1540 
PRINT :"PLAYER ":T; "COLLECTS" 
ML. (T) =ML (7) + CINT (BET (T) ¥ (ODD (T) / (GG+1)))) 
REM 

NEXT T 

PRINT ,, 

GOTO 1420 

NEXT GG 

PRINT "NO. MONEY LEFT",, 
PRINT 

FOR T=1 TO PLA 

PRINT T;" "sML(T) 

NEXT T 


GOTO 220 
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-EEEEEEEH EE Games ror vou wise ax FFE 
CITY BOMBER 


This is a classy adaptation of the old arcade favourite; 
you drop bombs on a series of high-rise buildings in 
order to clear a landing strip for your plane. 

The program uses some very effective graphics, in- 
cluding a ‘random explosion’ which changes from game 
to game. You will find this program a tough nut to crack. 

Use any key to fire. 
















10 REM xxxxk CITY BOMBER xxxx 
=< REM 
SO REM &xXxXxXx WRITTEN BY XXxxKx 
40 REM *x DAMON PILLINGER xx 
oO REM 


60 RANDOMIZE 

79 BM$="1A527258DB648F72984D7 1898305136556 
127 46A69AC99E7 98E7E907 BB9I8S146911835175710 
1487006603083 0680E707F OCOCO70B7078A70707 
E707A70E707DED7ODBDO" 
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a 
Ht CITY BOMBER 7 


80 LEV=1 
90 CALL CLEAR 


100 
110 
120 
130 
140 
150 
140 
170 
180 
190 
200 
210 
ed " 20 


aed ©) 


24OQ 
ZOO 
260 
270 


" = 
«al 


370 
SBO 
3970 
4Oo 
410 
420 
430 
440 
450 
460 
ATO) 
480 
AGO 
WOO 
w1lO 
whee 
a 
w4O 
vaio] 


FOR T=65 TO 8&3 

A$=SEGS (BMS, ((RNDX100)+1),16) 
CALL CHAR (T, AS) 

NEXT T 

HP=3 

VF= (LEV) /2+5 

CALL SCREEN (3) 

CALL CLEAR 

FF=32 

CALL HCHAR (21,1,70, 32) 

CALL COLOR (2,2, 14) 

CALL COLOR (3,2,19) 

CALL COLOR (4,2, 7) 

CALL COLOR(S, 2,9) 

CALL. COLOR (4, 2,9) 

CALL COLOR (7,2,9) 

CALL COLOR (8, 2,9) 

CALL CHAR (94, "QOOOBO0C47E7F") 
CALL CHAR (40, "7F41417F7F414141") 
CALL CHAR (48, “FF999999FF999SFF ") 
CALL CHAR (S46, "18FF3SCCSIC33CKFFFF" ) 
CALL CHAR (44, "FFODFF99FF9OSFF99" ) 
FOR T=4 TO 28 

S=INT (RND*X10) 

CALL VCHAR(20-S,T, 

(CINT (RND*4) *8) +40) ,S+1) 

NEXT T 

CALL KEY (3,X,Y) 

IF CO<30 THEN 420 

IF Y<?O THEN 400 

GOTO S20 

ALl=VP+1 

A2S=HP 

REM 

CALL HCHAR (A1,A2, 32) 

ALl=Alt+1 

IF Al<21 THEN 480 

CO=0 

GOTO 340 

CALL GCHAR (A1,A2,M) 

CALL HCHAR (AL, AZ,111) 

IF MesS2 THEN 650 

Cco=1 

CALL. HCHAR (VP, HF, 94) 

CALL. HCHAR(VP,HP-1, 32) 

CALL SOUND (-100,-6,0) 

CALL SOUND (-100,-7, 1) 
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wad 
370 
waO 
S90 
400 
610 
620 
430 
640 
450 
6460 
670 
680 


490 
7OO 
710 


720 
730 
740 
750 
760 
770 
789 
790 
B00 
810 
820 


830 
840 
B50 
840 
870 
B88oO 


GAMES FOR YOUR TI 99/4A 


IF FF< 232 THEN 740 

HP=HP+1 

IF (HP=29) X¥(VF=20) THEN 800 
CALL GCHAR(VP,HP,FF) 


IF HP <=30 THEN 360 

HP=3 

VP=VP+1 

CALL HCHAR(VF~1,28, 32,3) 
GOTO 3640 


FOR T=-9 TO -S 

CALL HCHAR (A1,A2, T+84) 

CO=0 

CALL SOUND (-100, 

CINT (T/3)-3) 0,600, 5) 

NEXT T 

CALL HCHAR(A1,A2,32, 1) 

CALL SOUND (—-200, 110,09, 400, 
0,300,0,~-8, 3) 

CALL HCHAR (21,1,70,532) 

GOTO 360 

FOR T=1 TO 16 STEF .3 

CALL SCREEN(T) 

CALL SOUND (-100, T¥104+110,0,-(T/2),1) 
NEXT T 

FRINT ..,,:"YOU CRASHED ON LEVEL ";LEV 
END 

FOR Y=1 TO 40 

CALL SCREEN ( (RNDX5) +1) 

CALL SOUND (50,110+(Y*10) ,O, 
— (CCRND*7)+1)),1) 

NEXT Y 

FRINT .,,,LEV+1 

LEV=LEV+2 

FOR I=1 TO 400 

NEXT I 

GOTO 140 
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ARECIBO 
ATTACK 


This is a simple, but highly effective, ‘space shoot’ game 
from James Turner that tests your ability to make spatial 
judgements. You have to try and shoot down a blinking 
alien as it passes overhead. As the alien gets lower and 
lower, its descent speed js increased. 

To win the game, you have to kill five aliens. The space 
bar is used to fire; you move left with the 'Z’ key, and right 
with the ''."’ key. 









Bee eee ees BE BSS RRR 
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10 

2O 

30 

40 

wo 

60 

7O 

B80 

90 

100 
11090 
120 
130 
140 
150 
1460 
170 
180 
190 
2O0 
210 
22O 
zo) 
24M 
so0) 
2450 
27) 
280 
290 
SOD 
21a 
320 
330 
340 
2a 
360 
370 
580 
390 
400 
410 
420 
430 
440 
4350 
460 
470 
480 
AIO 









REM ARECIBO ATTACK 

CALL CLEAR 

FRINT TAB(7);"ARECIBO ATTACK":,, 
PRINT TAB(13)3"By":: 


GOSUB 860 
RANDOMIZE 
CO=0 
R=3 

P=16 

M=16 

CALL CLEAR 

CALL SCREEN (2) 

S=INT (24X*RND) +1 

ST=INT (32xRND) +1 
CO=CO+1 

IF CO=35 THEN 210 
CALL COLOR(2,16,2) 
CALL HCHAR(S,ST, 44) 
GOTO 140 

CALL CHAR(128,"1818SC446FFE7BDFF" ) 
CALL CHAR (136, "OOSE49497F491422") 
CALL COLOR(13,12,2) 
CALL COLOR(14,9,2) 
CALL COLOR(12,7,2) 
CALL KEY(O,K,@) 

CALL HCHAR (22,M, 128) 
CALL HCHAR(R,P, 136) 

IF Ke 290 THEN 350 
M=M-2 

IF M<=1 THEN 320 ELSE 230 
M=1 

CALL HCHAR (22,M+2,32) 
GOTO 410 

IF K<>46 THEN 400 
M=M+2 

IF M?=32 THEN 380 ELSE 390 
M=32 

CALL HCHAR (22,M—-2, 32) 
IF K=32 THEN 490 

P=P+1 

CALL HCHAR(R,P-1,32) 
IF P<>335 THEN 480 

F=2 

GH=MEN+2 

R=R+GH 

IF Re=22 THEN 760 

GOTO 240 

FOR BP=17 TO R STEF —4 
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FOC 
SLO 
a a 
per PL) 
40 
a} 
OO 
o7() 
SEBO 
bra ®) 
400 
610 
420 
630 
640 
350 
46460 
6709 
6380 
690 
7OQ 
710 
720 
FSO 
74D 
730 
760 
770 
780 
790 
BOM 
810 
B20 
830 
840 
B50 
840 
870 
838o 















BERR 
fh _BRECIBOATTACK HFATHHttt 


CALL VCHAR(BP,M, 124) 
CALL HCHAR (BE +4,M, 32) 
F=P+i 


R=R+GH 

CALL HCHAR(R,F-1,32) 

CALL HCHAR(R,F, 134) 

CALL SOUND (150,-4, 1) 

CALL GCHAR (BF,M, Xx) 

NEXT BP 

CALL VOCHAR (1,M, 352, 24) 

CALL VCHAR (1, 32, 32,24) 

IF X=136 THEN 640 ELSE 260 
CALL SOUND (1000, ~35,0©) 

CALL SCREEN(10) 

CALL SOUND (1000,—-4,0) 

CALL SCREEN (2) 

CALL SOUND (1000, -7,0) 

CALL SCREEN(10) 

FRINT "HIT THE MARTIAN! " 
GOSUB 9460 

MEN=MEN+1 

IF MEN=S THEN 820 

CO =O 

GOTO 70 

CALL SCREEN(4) 

PRINT : "YOU HAVE BEEN INVADED !" 
PRINT "BETTER LUCK NEXT SHOT !" 
CALL SOUND (2000, 200,0,110,9) 
GOSUR 860 

GOTO 70 

CALL SCREEN (4) 

PRINT "YOU HAVE TRIUMPHED !“ 
GOSUB 840 

GOTO 76 

FOR I=1i TO 2000 

NEXT I 

RETURN 
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GRAPHIC 
DEMONSTRA- 
TIONS 


Here are three great graphic demonstration programs, 
written by Damon Pillinger. 

The first, ‘Ebauche’, draws a fascinating picture pat- 
ternon the screen, based ona series of squares. '240 Col- 
ours’, as its name suggests, shows the full 240 colours 
which your TI 99/4A can produce. The final program, 
‘Graphical Girder’, uses randomly-produced lines 
(coming from both the ais and the left) to produce an 


= 
_i 








WSN 












a 


a 



















rtf] | ity] tte Titty | PE 
eee eee GRAPHIC DEMONSTRATIONS SeReeeeanne 


10 REM XXXk EBAUCHE «xxx 

20 CALL SCREEN (4) 

SO CALL CLEAR 

40 FOR T=2 TO 10 

SO CALL CHAR (24+(T*8),"") 

40 CALL COLOR(T,T,T) 

70 NEXT T 

80 FOR T=1 TO 10 

90 CALL HCHAR(T,T, 32+ (TXB) , 20-(TK2)) 
100 CALL HCHAR (20—-T, T, 32+ (TXB) , 20—(T2) ) 
110 CALL VCHAR(T,T, 32+ (TXB) , 20—(TX2) ) 
120 CALL VCHAR(T,19-T, 32+ (TKS) , 20-(TX2) ) 
130 NEXT T 

i140 FOR Y=1 TO 8 

i150 AC(Y)=Y 

160 NEXT Y 

170 FOR Y=1 TO 8 

180 ACY) =A(Y) +1 

190 IF ACY)<>9 THEN 210 

200 ACY)=1 

210 CALL COLOR (Y+1,2,A(Y) +1) 

220 NEXT Y 

230 GOTO 170 


eT | 
Co) | 
10 REM ***xxk 240 COLORS «xxx 
29 REM 
30 REM **x BY DAMON xxx 
40 REM 


SO CALL CLEAR 

60 INPUT "SPEED (1-300) ":SP 
70 CALL CHAR (97, "AASSAASSAASSAASS ") 
80 CALL HCHAR(1,1,97, (32%24) ) 
90 FOR T=2 TO 14 

100 FOR J=1 TO 16 

110 FOR G=1 TO SF 

120 NEXT G 

130 CALL COLOR(9,T,J) 

140 NEXT J 

i150 NEXT T 

160 CALL CLEAR 

170 PRINT ooss5555 "240 COLORS" 
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REM GRAPHICAL GIRDER 
REM 
CALL SCREEN (2) 
CALL CLEAR 
FOR T=2 To 12 
CALL CHAR (404 (T-2) *B8,"") 
CALL COLOR(T,T+2, T+2) 
NEXT T 
A=3+INT (RND* (28) ) 
B=3+INT (RND* (18) ) 
CALL VCHAR (1,0, 40+INT (( (RND*10) *8)),B) 
CALL HCHAR(B,31-A, 
40+INT (( (RNDK10) *B)). A) 
A=INT (RND*28) +3 
B=INT (RNDX18) +3 
CALL VCHAR (22-8, A, 
40+INT (((RND*10) *8)),B) 
CALL HCHAR (B, 3, 40+INT(( (RNDX10) *8)) ,A) 
IF INT(RNDX20)<>17 THEN 200 


CALL CLEAR 
CALL SCREEN (RND*15+1) 
GOTO 90 
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CHALLENGER 


Wayne Southwick wrote this very effective moving 
graphics game. Written in Extended BASIC, the pro- 
gram makes good use of sprites. 

At the start of the game, you will be asked to enter your 
name. If you have a speech unit fitted, line 210 will inform 
you: ‘I think you will like this space-type program.'’ You 
can delete this line (and 710) if you do not have a speech 
unit. 

After entering your name, you will be given a few in- 
structions. You are the white spaceship near the centre of 
the screen. Several coloured spacecraft fly past you — at 
different speeds — and you have to try and dodge them. 

If you do nothing, your craft will drift upwards. Touch 
the ‘X’ key and you will move downwards. If you hit the 
red barriers at either the top or the bottom of the screen 
the game will come to an end. 

Your craft is fitted with shields which operate intermit- 
tently. If you are really desperate, you can chance flying 
through one of the alien craft. However, if your shields 
are not operating at that instance, you will be killed — 
and the game will end. 
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1¢ REM CHALLENGER 





29 REM 

39 REM WAYNE SQUTHWICK 

40 REM 

20 CALL CHARSET :: CALL MAGNIFY (1) 


60 CALL CHAR(128, "191A1C1918385898") 

79 CALL COLOR(S, 16,13 

80 CALL COLOR(13,7,1? 

90 CALL COLOR(1,16,1) 

100 CALL COLOR(2, 16,1) 

L1@ CALL COLOR(3,16,1) 

120 CALL COLOR(4,16,1) 

130 CALL COLOR(10, 16,1) 

140 CALL COLOR(S, 16,1) 

150 CALL COLOR(6, 16,1} 

160 CALL COLOR(?7, 16, 1) 

179 CALL COLOR(S, 16,1) 

180 CALL COLOR(12,°,1) 

190 CALL CLEAR :: CALL SCREEN(2) 
AT(10,10): "CHALLENGER" :: C 
11,12,128,10) 

200 PRINT “ PRESS X TO MOVE YOUR 
SPACE-SHIP DOWN" 

210 CALL SAY ("I4THINK+YOU+WILL4+LIKE+ 

THIS+SPACE+TYPE+PRCGRAM" } 

220 CALL CHAR !120, “FF7FZF3F7F3FLEC4") 

220 CALL CHAR!121, "40ELFZF7F3F3F7FF") 

240 CALL CLEAR !:: CALL SCREEN(2) 

250 DISPLAY AT{1,1!:"FOR THE FIRST TWO 

100 POINTS" :: DISPLAY AT{3,1!:" YOU WI 

LL GET DIFFERENT" :: DISPLAY AT(S,21) 

0 ATTACKERS. " 

GQ DISPLAY AT(1L9, 2):"PLEASE ENTER YOUR NAME: ° 

Q ACCEPT AT(13,8)SIZE(-?) VALIDATE 

(ALPHA) BEEPIAS 

280 CALL CLEAR 

290 CALL CHAR(136, "FFEFSFFFFFFFFFFF"?): 

> CALL COLOR(14,9,1) 


>: DISPLAY 
ALL HCHAR ( 


3090 CALL HCHAR(2,1,126,22) 

3i0 CALL HOHAR(24,1,136, 32) 

220 CALL HCHAR (3, 1,120, 32) 

ZO CALL HOHAR(23,2,121, 32! 

340 CALL CHAR (43, "DBE?728181828E7DB") 
S50 CALL CHAR(111, “CFLESEFAFAS3E1EOF") 
360 CALL SPRITE(#1,111,16,90,150) 

Cc 


OR F=2 TO 26 STEP 5 
See CALL SPRITE (H#F,43,3, 20+F¥5,20,0,50) 
390 NEXT F 
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ADO CALL CHAR(45, "O0183C7EFF7E7ESA") 
419 CALL SPRITE(#?, 45,8, 160,80, 0, 30) 
42C CALL SPRITE (#8, 45,8, 120, 1,0, 20) 
430 CALL SPRITE(#H9,45,11,50,1,9, 20) 
440 CALL SPRITE(#10,495,11,65,1,0, 29) 
450 CALL CHAR(61, "OF LESEFAFASELEOF") 
A6O0 LET CHEN=CHEN+1 3: IF CHEN=200 THEN 
800 :: IF CHEN>100 THEN 750 

470 CALL COINC(#1,3,150,26,G): 

: IF G=-1 THEN 620 
480 CALL COINC(ALL,@)!:: IF @=-1 THEN 620 
490 CALL COINC (#1, 162,15C,10,P): 

: IF P=-1 THEN 620 
SOO LET TIME=TIME+1 :: DISPLAY AT(1,1): 


ASKk", YOUR SCORE IS: "&STRS(TIME) 
S19 CALL COINC(#1,3,150,26,G): 

: IF G=-1 THEN 620 
S20 CALL COINC(ALL,@):: IF @=-1 THEN 620 
S30 CALL COINC(#1,162,150,10,P?: 


: IF P=-1 THEN 620 
S40 CALL KEY(1,K,S) 


SSO IF S=O THEN Y=-15 
560 IF K=C THEN Y=15 
570 CALL MOTIOM(#H1,Y,™) 
S80 CALL COINC(#1,2,150,26,G): 
: IF G=-1 THEN 620 
S°0 CALL COINC(ALL,@):: IF @=-1 THEN 620 
60C CALL COINC(#1,162,150,10,P): 
> IF P=-1 THEN 620 
610 GOTO 460 
620 CALL POSITION(#1,R1,C1) 
630 CALL DELSPRITE(ALL):: CALL SOUND 
(680,880,9,-5,0):: CALL SCREEN(2) 
6490 CALL COLOR(10,11,1) 
650 CALL HCHAR(S,2,111,31) 
660 CALL VCHAR(S,2,111,18) 
679 CALL VCHAR(S,32,111,18) 
680 CALL HCHAR(18,2,111,31) 
690 DISPLAY AT(12,8):"G AME QUER®*: 


—_ 


> DISPLAY AT(16,8) ;ASk"'S SCORE IS "RST 
R# (TIME? 


700 DISPLAY AT(1,1):" 


"* $3 DISPLAY AT(20.49):" WANT TO 
PLAY AGAIN Y OR N.Y" 


7190 CALL SAY! "TO+PLAY+AGAIN+PRESSt+ENTER+OR+tN 


+THEN+tENTER+FOR+NO” } 
720 ACCEPT AT(21,28)SIZE‘(-1)} BEEP 
VALIDATE (°YN") 36S ©: IF GS="¥" THEN 900 
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FOR 

CALL 
CALL 
CALL 
CALL 
CALL 
GOTO 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
GoTo 
CALL 


D=-1 TQ @ce 3: NEXT D 


CLEAR :: END 

SHAR (43, "183C7EFFFF7E3C18") 
COINC(ALL,@):: IF @=-1 THEN 620 
CHAR (43, "E7C381900081C3E7") 
COINS(ALL,@):: IF @=-1 THEN 62C 
470 

DELSPRITE (ALL) 

SPRITE (#1,61,15,90,150? 

SPRITE (#7, 128,8, 150, 90,0, 40) 
SPRITE(H9, 128,4,32,8,0, 20) 
SPRITE ‘#11, 128,6,48, 24,0, 40? 
SPRITE (#13, 128,28, 64, 40,0, 60) 
SPRITE (#15, 128, 10,80,56,0C, 80) 
SPRITE (HI7, 128, 12,96, 72,0, 20? 
SPRITE (#19, 128, 14,112,88,0,40) 
470 

CLEAR :: RUN 240 
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How To Wnite 
Better 
Programs 


INVENTING AND DEVELOPING YOUR OWN 
GAMES PROGRAMS 
By Series Editor, Tim Hartnell 





It’s all very well spending your time typing in programs 
like those in this book, but there is sure to come a time 
when you decide you'd like to develop some games pro- 
grams of your own. In this section of the book, I'd like to 
discuss a few ideas which may help you write games 
which you'll both enjoy developing and — more impor- 
tantly — you and your friends will enjoy playing. 


HAVE A CLEAR GOAL IN MIND 


Although in many (perhaps most) cases, your computer 
program will take on a life of its own as you write it, 
developing away fromthe concept you had in mind when 
you started programming, it is important at the outset to 
have a pretty good idea of what your game will involve. 

This is not as obvious a suggestion as you might think. 
Of course, you'll know if you're developing a 'chase the 
ghosts around the maze as you eat the power pills’ pro- 
gram that you are going to need a different sort of pro- 
gram layout to one which places you inside a Haunted 
Oak, peopled with gremlins and halflings. But you have 
to go beyond the basic "I'm going to write me an Adven- 
ture’’ stage to work out such things as (a) what the object 
of the game will be; (b) what the screen display wil] look 
like; (c) what variables, and variable names, you'll need; 
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(d) the nature of the player input; (e) how ‘winning’ or ‘los- 
ing’ will be determined; and so on. 
Let's look at these one by one. 


THE OBJECT OF THE GAME 


This can usually be stated very succinctly: ''To find the 
lost treasure of the Aztecs’; ''To destroy as many 
asteroids as possible before running out of ships"’; or ''To 
play a game of chess'’. But even though this stage of the 
game production can be accomplished very quickly, it 
should not be overlooked. Get this statement — which 
might be just a sentence, or may run to a paragraph 
length or more, if there is more than one ‘screen’ to be 
worked through, with a different scenario for each 
screen — down in writing. 

You may well discard the original aim as the program 
develops, and it looks like the direction it is taking is bet- 
ter than the one you first thought of. Despite this, it is im- 
portant to have something concrete to aim at, to stop you 
wasting hour after hour doodling aimlessly. 


THE SCREEN DISPLAY 


I've found that making a sketch, or sketches, of what the 
display will look like once the program isup and running, 
is of tremendous benefit. Once you have your drawing, 
and it doesn't matter how rough it is so long as it shows all 
the important things you want on the screen, and their 
relative positions and size, you'll discover the program 
concept is likely to crystalize. 

As well as seeing immediately how you will write parts 
of the code to achieve the game's aim, you'll get an idea 
of whether or not the game Is even worth writing in the 
form you had considered. Perhaps the game will be too 
complex if you leave everything on the screen you were 
intending to; or maybe most of the screen will be wasted 
space, sothata more complicated game scenario should 
be devised. 
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I've discovered that sketching the proposed screen 
display before starting to program is particularly useful, 
especially when creating arcade and simulation games. 
You get an indication of the variables you'll need, the 
user-defined graphics, the kind of player inputs which 
will be most conducive to good player interaction, and so 
on. 

Simulation games, as you probably know, are those in 
which the computer models an external reality — such as 
running a cake shop, a war, or an airport — and allows 
you to experience (after a fashion) what it would be like to 
take part in such an activity in real life. Simulation games 
are not particularly difficult to write —interms ofneeding 
clever coding — but instead demand a methodical, pain- 
staking approach to the program. 

In my book The ZX Spectrum Explored (Sinclair 
Browne, 1982), there is a program with the unlikely name 
of ‘Workin’ for the Man’, in which you are running a fac- 
tory, staffed with a highly-erratic workforce, involved in 
the manufacture of some mythical product called ‘The 
Zibby'. The player gets a factory report two or three 
times a week, and from this report has to decide how 
many staff he or she will hire or (attempt to) fire, how 
many Zibbies will be the production target for the week, 
and so on. 

This report is the key to the program, and when I wrote 
the game, I started by making a sketch of how the screen 
would look. It was a bit like this: 


FACTORY REPORT: WEEK 5 
Capital in hand is $2,657.92 
Your stores hold 12 Zibbies worth $169.68 


They sell for $14.14 each and cost $7.41 
each to make 


Workforce is 7 people 
Their wages are $4] each and the wage bill 
this week is $287 
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Each person can make 10 Zibbies a week, 
a total output of 70 


Once I had this sketch drawn up, I was ready to go. As 
you can see, it gives a very good indication of the 
variables which will be needed. For a start, I know I'll 
have to contro] the number of the week, the capital, the 
contents of the stores (and their value) and so on. 

I found that once I'd completed the screen display 
sketch, the rest of the program was relatively easy to 
write. Doing a sketch in this way gives you an instant 
guide to the main variables you'll need. 


USE HELPFUL VARIABLE NAMES 


I also tend to use variable names which relate in some 
way to that which they are representing, as it saves hav- 
ing to keep a list of the variables which have been assign- 
ed, and what they've been assigned to. For example, I 
could use WK for week, CH for capitalin hand, MZ forthe 
cost of making each Zibby and $Z forthe selling price. IfZ 
was the number of Zibbies, I would know that the total 
value of Zibbies I had was Z (the number of them) 
multiplied by SZ (their selling price) and it cost me Z 
multiplied by MZ (their price of manufacture) to make 
them. My profit, 1f I sold them all, would then be Z*5Z 
minus Z*MZ. 

If you follow a similar idea, you'll find it is much easier 
to keep track of what is happening in your program than 
might otherwise be the case. 


THE NATURE OF THE PLAYER INPUT 


It's important to make games easy and fun to play. It’s not 
good having the best Asteroids-derivative program in 
the world if players have trouble hitting the fire button 
because you've placed it right next door to the ‘rotate’ 
control. 

Many programs which provide ‘up’, ‘down’, ‘right’ and 
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‘left’ controls, automatically use arrow or cursor keys, 
even though these might be most inconvenient for the 
player to use. Have a look at your keyboard, and see if 
you can find better ones. I often use ''Z'’ and ''M"’ for pro- 
grams which need just left and right movement, with the 
space bar for fire. These keys seem logical to me, andno 
player time is wasted in learning them, or trying to 
remember them when the game is underway. Inasimilar 
way, | tend to use '‘A"' (for up) and ‘‘Z"’ (for down) for the 
lefthand, and the ‘'greaterthan”' and ''‘lessthan"' keys for 
left and right (pointing out to the player that the < and > 
symbols point in the relevant directions). 

Use INKEY$ or GET$ whenever youcan, to preventthe 
player from having to use the RETURN or ENTER keysto 
get the program underway. 


HOW THE GAME WILL END 


The way the game will be won and lost needs to be defin- 
ed, and clear to the player. Do you need to blast all the 
aliens to win, and will you lose automatically if one alien 
lands, and you've still got ships left, or only if you have no 
ships left. In a two-player game, is the loser the first 
player to lose three lives, or seven pieces, or does the 
game only end when the difference between the two 
scores is three or seven or whatever. 

Work this out, and make it very clear to the player. 
Whether the goal ofthe game istoclear the left-hand side 
of the screen of the Screaming Widgies, or toclock upa 
fortune of $7.3 billion, it must be both clear to the player, 
and possible to achieve. A ‘win condition’ which can 
never be achieved on the higher levels of play is most 
unsatisfactory. No matter how difficult it is to do, you are 
only defrauding players if you set goals whose achieve- 
ment is not possible within the constrictions you've put in- 
to the game. 

I hope these five points may give you a few ideas on 
how you can go ahead and write programs which will be 
relatively easy to write, and which will be satisfying for 
you and your friends to play. 
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GLOSSARY 


A 


Accumulator — the place within the computer in which 
arithmetic computations are performed and where 
the results of these computations are stored. 

Algorithm — the series of steps the computer follows to 
solve a particular problem. 

Alphanumeric — this term is usually used in relation toa 
keyboard, as in ‘it is an alphanumeric keyboard’, 
which means that the keyboard has letters as well as 
numbers. Itis also used to refer to the ‘character set' of 
the computer. The character set comprises the 
numbers and letters the computer can print on the 
screen. 

ALU (Arithmetic/Logic Unit) — the part of the computer 
which does arithmetic (such as addition, subtraction) 
and where decisions are made. 

AND — a Boolean logic operation that the computer uses 
in its decision-making process. It is based on Boolean 
algebra, a system developed by mathematician 
George Boole (1815-64). In Boolean algebra the 
variables of an expression represent a logical 
operation such as OR and NOR. 

ASCII — stands for American Standard Code for 
Information Exchange, the most widely used 
encoding system for English language 
alphanumerics. There are 128 upper and lower case 
letters, digits and some special characters. ASCII 
converts the symbols and control instructions into 
seven-bit binary combinations. 

Assembler — a program which converts other programs 
written in assembly language into machine code 
(which the computer can understand directly). 
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Assembly language is a low level programming 
language which uses easily memorised combinations 
of two or three letters to represent a particular 
instruction which the assembler then converts so the 
machine can understand it. Examples of these are 
ADD (add), and SUB (subtract). A computer 
programmed in assembly language tends to work 
more quickly than one programmed in a higher level 
language such as BASIC. 


B 


BASIC — an acronym for Beginners All-Purpose 
symbolic Instruction Code. It is the most widely used 
computer language in the microcomputer field. 
Although it has been criticised by many people, it has 
the virtue of being very easy to learn. A great number 
of BASIC statements resemble ordinary English. 

Baud — named after Baudot, a pioneer of telegraphic 
communications. Baud measures the rate of transfer of 
information and is approximately equal to one bit per 
second. 

BCD — an abbreviation for Binary Coded Decimal. 


Benchmark — a test against which certain functions of the 
computer can be measured. There are anumber ofso- 
called ‘standard Benchmark tests’, but generally 
these only test speed. This is rarely the aspect of a 
microcomputer that is most of interest to the potential 
buyer. 

Binary — a numbering system that uses only zeros and 
ones. 

Bit — an abbreviation for Binary Digit. This is the smallest 
unit of information a computer circuit can recognise. 


Boolean Algebra — the system of algebra developed by 
mathematician George Boole which uses algebraic 
notation to express logical relationships (see AND). 


Bootstrap — a short program or routine which 1s read into 
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the computer when it Is first turned on. It orients the 
computer to accept the longer, following program. 


Bug — an error in a computer program which stops the 
program from running properly. Although it is 
generally used to mean only a fault or an error ina 
program, the term bug can also be used for a fault in 
the computer hardware. 

Bus — a number of conductors used for transmitting sig- 
nals such as data instructions, or power in and out ofa 
computer. 

Byte — a group of binary digits which make up a 
computer word. Eight is the most usual number of bits 
in a byte. 


CAI — Computer Assisted Instruction. 

CAL — Computer Assisted Learning. The term is 
generally used to describe programs which involve 
the learner with the learning process. 

Chip — the general term for the entire circuit which is 
etched onto a small piece of silicon. The chip is, of 
course, at the heart of the microcomputer. 

Clock — the timing device within the computer that 
synchronises its operations. 

COBOL — a high level language derived from the words 
Common Business Orientated Language. COBOL is 
designed primarily for filing and record-keeping. 

Comparator — a device which compares two things and 
produces a signal related to the difference between 
the two. 

Compiler — a computer program that converts high 
level programming language into binary machine 
code so the computer can handle it. 


Complement — a number which is derived from another 
according to specified rules. 
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Computer — a device with three main abilities or 
functions: 
1) to accept data 
2) to solve problems 
3) to supply results 


CPU — stands for Central Processing Unit. This is the 
heart of the computer's intelligence, where data is 
handled and instructions are carned out. 

Cursor — a character which appears on the TV screen 
when the computer is operating. It shows where the 
next character will be printed. On a computer there 
are usually ‘cursor control keys’ to allow the user to 
move the cursor around the screen. 


D 


Data — information in a form which the computer can 
process. 

Debug — the general term for going through a program 
and correcting any errors in it, that is, chasing down 
and removing bugs (see Bug). 

Digital Computer —a computer which operates on 
information which is in a discrete form. 

Disk/Disc — thisisa magnetically sensitised plastic disk, 
a little smaller than a single play record. This is used 
for storing programs and for obtaining data. Disks are 
considerably faster to load than a cassette of the same 
length program. The disk can be searched very 
quickly while a program is running for additional data. 

Display — the visual output ofthe computer, generally on 
a TV or monitor screen. 

Dot Matrix Printer — a printer which prints either the 
listing of a program or that which is displayed on the 
TV screen. Each letter and character is made up of a 
number of dots. The higher the number of dots per 
character the finer the resolution of the printer. 
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Dynamic Memory — a memory unit within the computer 
which ‘forgets’ its contents when the power is turned 
off. 


E 


Editor — this term is generally used for the routine within 
the computer which allows you to change lines of a 
program while you are writing it. 

EPROM — stands for Erasable Programmable Read- 
Only Memory. This is like the ROM in the computer, 
except that it is fairly easy to load material into an 
EPROM and it doesn't disappear when you turn the 
power off. EPROMs must be placed in a strong ultra 
violet light to erase them. 

Error Messages — the information given by a computer 
where there is a fault in the coding during a part ofa 
program, usually shown by the computer stopping, 
and printing a word, or a word and numbers, or a 
combination of numbers only, at the bottom of the 
screen. This tells you what mistake has been made. 
Common mistakes include using the letter O instead of 
zero ina line, or leaving outa pair of brackets, or one of 
the brackets, in an expression, or failing to define a 
variable. 


F 


File — a collection of related items of information 
organised in a systematic way. 

Floppy Disk — a relatively cheap form of magnetic disk 
used for storing computer information, and so named 
because it is quite flexible (see Disk/Disc). 

Flow Chart — a diagram drawn up before writing a 
program, in which the main operations are enclosed 
within rectangles or other shapes and connected by 
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lines, with arrows to represent loops, and decisions 
written at the branches. It makes writing a program 
much easier because traps such as infinite loops, or 
non-defined variables can be caught at an early stage. 
It may not be worth writing a flow chart for very short 
programs, but generally a flow chart aids in creating 
programs. 

Firmware — there are three kindsof'ware’ in computers: 
software ‘temporary’ programs; hardware like the 
ROM which contains permanent information; and 
firmware in which the information is relatively 
permanent, as in an EPROM (see EPROM). 

Flip-Flop — a circuit which maintains one electrical con- 
dition until changed to the opposite condition by an 
input signal. 

FORTRAN — an acronym for FORmula TRANslation, this 
is a high level, problem orientated computer 
language for scientific and mathematical use. 


G 


Gate — an electrical circuit which, although it may 
accept one or more incoming signals, only sends out a 
single signal. 

Graphics — pictorial information as opposed to letters 
and numbers. 


Hard Copy — computer output which is in permanent 
form. 


Hardware — the physical parts of the computer (also see 
software and firmware). 

Hexadecimal (Hex) — a numbering system to the base 
sixteen. The digits zero to nine are used, as well as the 
letters A, B, C, D, E and F to represent numbers. A 
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equals 10, B equals.11, C equals 12, and so on. Hex is 
often used by microprocessor users. 

Hex Pad — a keyboard designed specifically for 
entering hexadecimal notation. 

High Level Language — a programming language which 
allows the user to talk to the computer more or less in 
English. In general, the higher the level of the 
language (thatis, the closer itisto English), the longer it 
takes for the computer to translate it into a language it 
can use. Lower level languages are far more difficult 
for human operators but are generally executed far 
more quickly. 


Input — the information fed into the computer via a key- 
board, a microphone, a cassette or a disk. 

Input/Output (I/O Device) — a device which accepts 
information or instructions from the outside world, 
relays it to the computer, and then, after processing, 
sends the information out in a form suitable for storing, 
or in a form which could be understood by a human 
being. 

Instruction — data which directs a single step in the pro- 
cessing of information by the computer (also known as 
a command). 

Integrated Circuit — a complete electronic circuit 
imprinted on a semiconductor surface. 

Interface — the boundary between the computer anda 
peripheral such as a printer. 


Interpreter — a program which translates the high level 
language fed in by the human operator, into a 
language which the machine can understand. 


Inverter — a logic gate that changes the signal being fed 
in, to the opposite one. 


Interactive Routine — part of a program which is 
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repeated over and over again until a specified 


condition is reached. 


J 


Jump Instruction — an instruction which tells the 
computer to go to another part of the program, when 
the destination of this move depends on the result ofa 
calculation just performed. 


K 


K — this relates to the size of the memory. Memory is 
usually measured in 4K blocks. 1K contains 1,024 
bytes. 

Keyword — the trigger word in a line of programming, 
usually the first word after the line number. Keywords 
include STOP, PRINT and GOTO. 


L 


Language — computer languages are divided into three 
sections: high level languages, such as BASIC, which 
are reasonably close to English and fairly easy for 
humans to use; low level languages, such as 
Assembler, that use short phrases which have some 
connection with English (ADD for add and RET for 
return, for instance); and machine code which 
communicates more or less directly with the machine. 

LCD — this stands for Liquid Crystal Diode. Some 
computers such as the TRS-80 Pocket Computer use 
an LCD display. 

LED — this stands for Light Emitting Diode. The bright 
red numbers which are often used on watch or clock 
displays are made up of LEDs. 
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Logic — the mathematical form ofa study ofrelationships 
between events. 


Loop — a sequence of instructions within a program 
which is performed over and over again until a 
particular condition is satisfied. 





M 


Machine Language or Machine Code — an operation 
code which can be understood and acted upon 
directly by the computer. 


Magnetic Disk — see Disk and Floppy Disk. 


Mainframe — computers are generally divided into 
three groups, and the group a computer falls into 
depends more or less on its size. The computer you 
are thinking of buying is a microcomputer; medium 
sized computers are known as minicomputers; andthe 
giant computers that you sometimes see in science 
fiction movies are mainframe computers. Until 15 
years ago mainframe computers were, in practical 
terms, the only ones available. 

Memory — there are two types of memory within a 
computer. The first is called ROM (read-only 
memory); this is the memory that comes already 
programmed on the computer, which tells the 
computer how to make decisions and how to carry out 
arithmetic operations. This memory is unaffected 
when you turn the computer off. The second type is 
RAM (random access memory). This memory holds 
the program you type in at the keyboard or send in via 
a cassette or disk. In most computers the computer 
‘forgets’ what is in RAM when you turn the power off. 


Microprocessor — the heart of any computer. It requires 
peripheral unit interfaces, such asa power supply and 
input and output devices, to act as a microcomputer. 

MODEM — stands for Modulator Demodulator. This is a 
device which allows two computers to talk to each 
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other over the telephone. The computers usually usea 
cradle in which a telephone receiver is placed. 

Monitor — this has two meanings in computer terms. One 
meaning is a television-like display. A monitor has no 
facility for tuning television programs, and usually the 
picture produced on a monitor is superior to that 
produced by an ordinary television. The second 
meaning of a monitor relates to ROM. The monitor ofa 
computer is described as the information it has built in 
when you buy it. This information allows it to make 
decisions and carry out arithmetic computations. 

Motherboard — a framework to which extra circuits can 
be added. These extra circuits often give the 
computer facilities which are not built-in, such as that 
of producing sound or of controlling a light pen. 

MPU — an abbreviation for Microprocessor Unit. 






N 


Nano-second — a nano-second is one thousand billionth 
of asecond, the unit of speed in which a computer or a 
memory chip is often rated. 


Non-Volatile Memory — memory which is not lost when 
the computer is turned off. Some of the smaller 
computers such as the TRS-80 Pocket Computer have 
non-volatile memory. The batteries hold the program 
you enter for several hundred hours. 

Not — a Boolean logic operation that changes a binary 
digit into its opposite. 

Null String — a string which contains no characters. It is 
shown in the program as two double quote marks, 
without anything between them. 

Numeric — pertaining to numbers as opposed to letters 
(that is, alphabetic). Many keyboards are described 
as being alphanumeric which means both numbers 
and letters are provided. 
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Octal — a numbering system which uses eight as the 
base, and the digits 0, 1, 2, 3, 4, 5,6 and 7. The Octal 
system is not used very much nowadays in 
microcomputer fields. The Hexadecimal system is 
more common (see Hexadecimal). 


Operating System — the software or firmware generally 
provided with the machine that allows you to run other 
programs. 

OR — an arithmetic operation that returns a 1, if one or 
more inputs are |. 

Oracle — a method of sending text messages with a 
broadcast television signal. A teletext set is required 
to decode the messages. Oracle is run by 
Independent Television Service in the UK, and a 
similar service — Ceefax — is provided by the BBC. 

Output — information or data fed out by the computer to 
such devices as a TV-like screen, a printer or a 
cassette tape. The output usually consists of the 
information which the computer has produced asa 
result of running a program. 

Overflow — a number too large or too small for the 
computer to handle. 


Pad — see Keypad. 


Page — often used to refer to the amount of information 
needed to fill one TV screen, so you can talk about 
seeing a page of a program, the amount of the listing 
that will appear on the screen at one time. 

PASCAL — a high level language. 


Peripheral — anything which is hooked onto a computer, 
for control by the computer, such as a disk unit, a 
printer or a voice synthesiser. 
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Port — a socket through which information can be fed out 
of or in to a computer. 

Prestel — the British telecom name for asystem of calling 
up pages of information from a central computer via 
the telephone and displaying them on a television 
screen. A similar commercial version in the United 
States is known as The Source. 

Program — in computer terms program has two 
meanings. One is the list of instructions that you feed 
into a computer, and the second is used asa verb, asin 
‘to program a computer’. 

PROM — stands for Programmable Read Only Memory. 
This is a device which can be programmed, and once 
it is then the program is permanent (also see EPROM 
and ROM). 


R 


Random Access Memory (RAM) — the memory within a 
computer which can be changed at will by the person 
using the computer. The contents of RAM are usually 
lost when a computer is turned off. RAM isthe memory 
device that stores the program that you type in and 
also stores the results of calculations in progress. 

Read-Only Memory (ROM) — in contrast to RAM, inform- 
ation in ROM cannot be changed by the user of the 
computer, and the information is not lost when the 
computer is turned off. The data in ROM is put there by 
the manufacturers and tells the computer howto make 
decisions and how to carry out arithmetic 
computations. Thesize of ROM and RAM isgiven inthe 


unit K (see K), 
Recursion — the continuous repetition of a part of the 
program. 


Register — a specific place in the memory where one or 
more computer words are stored during operations. 
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Reserved Word — a word that you cannot use for a 
variable ina program because the computer will read 
it as something else. An example is the word TO. 
Because TO has a specific computer meaning, most 
computers will reject it as a name for a variable. The 
same goes for words like FOR, GOTO and STOP. 

Routine — this word can be used as a synonym for 
program, or can refer to a specific section within a 
program (also see Subroutine). 


S 


second Generation — this has two meanings. The first 
applies to computers using transistors, as opposed to 
first generation computers which used valves. Second 
generation can also mean the second copy of a 
particular program; subsequent generations are 
degraded by more and more noise. 

Semiconductor — a material that is usually an electrical 
insulator but under specific conditions can become a 
conductor. 

Serial — information which is stored or sent in a 
sequence, one bit at a time. 

Signal — an electrical pulse which is a conveyor of data. 

Silicon Valley — the popular name given to an area in 
California where many semiconductor manufacturers 
are located. 

SNOBOL — a high level language. 

Software — the program which is entered into the 
computer by a user which tells the computer what to 
do. 

Software Compatible — this refers to two different 
computers which can accept programs written for the 
other. 

Static Memory — a non-volatile memory device which 
retains information so long as the power is turned on, 
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but does not require additional boosts of power to 
keep the memory in place. 

Subroutine — part of a program which is often accessed 
many times during the execution of the main program. 
A subroutine ends with an instruction to go back to the 
line after the one which sent it to the subroutine. 


T 


Teletext — information transmitted in the top section ofa 
broadcast television picture. It requires a special set 
to decode it to fill the screen with text information. The 
BBC service is known as Ceefax, the ITV service as 
Oracle. Teletext messages can also be transmitted by 
cable, for example the Prestel service in Britain or The 
Source in the United States. 


Teletype — a device like a typewriter which can send 
information and also receive and print it. 

Terminal — a unit independent of the central processing 
unit. It generally consists ofa keyboard and a cathode 
ray display. 

Time Sharing — a process by which a number of users 
may have access to a large computer which switches 
rapidly from one user to another in sequence, so each 
user is under the impression that he or she is the sole 
user of the computer at that time. 

Truth Table — a mathematical table which lists all the 
possible results of a Boolean logic operation, showing 
the results you get from various combinations of 
inputs. 


U 


UHF — Ultra High Frequency (300-3000 megaHertz). 


Ultra Violet Erasing — Ultra violet light must be used to 
erase EPROMs (see EPROM). 
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Variable — a letter or combination of letters and symbols 
which the computer can assign to a value or a word 
during the run of a program. 

VDU — an abbreviation for Visual Display Unit. 

Volatile — refers to memory which ‘forgets’ its contents 
when the power is turned off. 


WwW 


Word — a group of characters, or a series of binary 
digits, which represent a unit of information and 
occupy a single storage location. The computer 
processes a word as a single instruction. 


Word-Processor — a highly intelligent typewriter which 
allows the typist to manipulate text, to move it around, 
to justify margins and to shift whole paragraphs if 
necessary on a screen before outputting the 
information onto a printer. Word-processors usually 
have memories, so that standard letters and the text of 
letters, written earlier, can be stored. 
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Compiled by Tim Hartnell 





Usborne have released a number of very attractive 
books in their Usborne Computer Books series. Drawing 
on their vast experience in the field of producing low- 
priced, highly-coloured, attractive books for young 
readers, they've produced some books which will 
enlighten both young and not-so-young readers. 

I'll look at three of their titles, three which cover just 
about the whole field of computer interests: 


Information Revolution 

(Lynn Myring and Ian Graham, Rigby). 

Presenting an eminently readable introduction to the 
‘revolution’ which covers such fields as computers (of 
course), text information services via the television 
screen, word processing, ‘future phones’ and satellite 
communications, /Jnformation Revolution is an ideal 
guide for the person who wants an easy-to-read introduc- 
tion to the field. 


Computer Jargon 

(Corinne Stockley and Lisa Watts). 

The tone of this book is set by the frontispiece, which has 
a number of odd little coloured robots sitting around a 
table laden with computer junk, pointing at each piece 
saying ‘This is a disk drive"’, ‘This is a digital tracer”’ (!) 
and ‘'This is a printer’. 


Robotics — What Robots Can Do and How They Work 
(Tony Potter and Ivor Guild). 
This is definitely a candidate for the award of 'the longest 
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title ofthe year’. But itis very accurate. Don't be put offby 
the pretty pictures, as you'll soon discover this book hasa 
lot of solid information. Topics covered include ‘What 
robots can and cannot do”, ‘‘How arm robots work", 
“How to teach a robot’ and ‘Build your own 
micro-robot'’; this last section actually includes nine 
pages of circuit diagrams and all to build a little two- 
motor robot which, following a program typed into your 
micro, will run about the floor. Robotics is a field of the 
near future (with personal robots certain to be a bigger 
craze — when ‘real robots’ finally arrive — than com- 
puters will ever be). 


Practise Your BASIC 

(Gaby Waters and Nick Cutler). 

You'll find this book — which predictably contains a 
number of exercises, puzzles and problems to solve by 
writing programs — should be useful in giving you a 
number of ‘core problems’ which will run on your com- 
puter and which can then be modified to take advantage 
of your system's special features. Program listings in- 
clude ‘Pattern Puzzles’, ‘Jumping Man’, ‘Horse Race’, 
‘Word Editor’ and ‘Treasure Hunt’, a mini-Adventure. 


Help With Computer Literacy 

(june St Clair Atkinson, Houghton Mifflin). 

This 1s a large format book with an attractive cover, fairly 
priced for its 122 pages. It appears to be aimed at the ear- 
ly to middle years of secondary education, but containsa 
lot of material which those teaching younger children 
could easily adapt. Although it avoids the 'Gee Whiz’ ap- 
proach of the Usborne texts, it uses cartoons and 
diagrams to get its message across in an inviting manner. 


The Interface Computer Encyclopedia 

(Ken Ozanne, Interface Publications). 

Compiled by a lecturer in mathematics at the NSW In- 
stitute of Technology, this work could perhaps be more 
accurately called ‘The Computer Book of Lists’, rather 
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than an encyclopedia. It contains annotated references 
to ‘all’ microprocessors, ‘all’ microcomputers, and 
‘most’ microcomputing magazines. The inverted com- 
mas are there because — as the author admits candidly 
in his introduction — any such work Is likely to be out of 
date even before it is published. Fat (445 pages) with 
minimalist presentation (the whole book is dumped 
directly from a word processor onto a dot-matrix printer) 
you'll find this a useful work if you want a ready 
reference to chips, computers and the ever-growing 
field of specialist magazines. 


Computer Resource Book — Algebra 

(Thomas Dwyer and Margot Critchfield, Houghton 
Mifflin). | 

Dwyer and Critchfield have clocked up an enviable str- 
ing of successful computer books, and this one, part ofa 
series, shows why. With simple, but valuable programs, 
the authors lead the reader (who can be a secondary stu- 
dent, or an instructor) through most of the phrases of the 
BASIC programming language which are common to all 
low-priced computers, and most educational time- 
sharing systems. 


Apple II BASIC 

(David Goodfellow, Tab Books Inc.). 

Attractively packaged, this book is clearly laid out, with 
an abundance of example programs; it takes a commen- 
dable approach to the business of teaching programm- 
ing, with the qualities of ‘programming style’ introduced 
without fanfare. In the crowded field of ‘how to program 
your Apple’ books, this one stands out. Much of the 
material presented is applicable to any microcomputer. 


Pre-Computer Activities 

(Dorothy Diamond, Hulton Educational). 

This practical guide for teachers and parents can help 
make children familiar with essential computer pro- 
cesses and language before they have hands-on ex- 
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perience. The book contains a number of interesting ac- 
tivities, including investigating binary numbers using 
little lights, and working with cardboard ‘calculators’ 
before getting to the real thing. The discussion on com- 
puter graphics is enlivened by reference to the solid 
blocks which make up a ‘Pacman’ figure. 


Word Processing Experience 

(Janet Pigott and Roger Atkins-Green, Stanley Thornes 
Publishers Ltd.). 

Designed for schools, but ideal for adapting if you'd like 
to increase your skill with a word processor (or simply 
because you'd like to see what word processors can do 
SO you can write one for your own microcomputer), this 
book looks at the mechanics of word-processing, while 
passing on a great deal of useful information about word- 
processing techniques. 


An Introduction to Micro-electronics and Micro- 
processor Systems 

(G H Curtis and P G Wilks, Stanley Thornes Publishers 
Ltd.). 

This work was written for junior college students and 
older school pupils, as well as for non-specialists who 
wanted a comprehensive — if dry — technical introduc- 
tion to the subject. The going is not easy, but it’s worth the 
effort. Topics covered include ‘Logic’, ‘Programming 
the Microcomputer’ and ‘Analogue, Binary and Digital 
Systems’. 


Computer Images — State of the Art 

(Joseph Deken, Thames and Hudson). 

This is a beautiful book, large and glossy, and packed 
with quality full-colour computer-generated (or, in some 
cases, computer-modified) images. The whole fas- 
cinating field of modern computer graphics is discussed 
— from television programme introductions using photo- 
graphs which are colour-modified, twisted and tweeked, 
to the use of incredible high-resolution images in 
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simulators for flight training and tank manoeuvring. 
You'll read (and see) how computers are used to pro- 
duce images, how these are used for education and com- 
munication, why ‘art for art’s sake’ is a goal worth pursu- 
ing, and how computer images can evolve using pro- 
cesses uncannily akin to the processes by which groups 
of cells multiply and divide. If you want to see what can 
be done with high resolution graphics and when time, 
money and skill abound, you should get this book. 


Computer Bluff 

(Stephen Castell, Quartermaine House Ltd.). 

A much more valuable book than its title indicates, it con- 
tains a lot of information on the what and how of com- 
puters, along with a generous dollop of computer jargon 
(or ‘How to Cheat in Computer-Speak’). The style is gen- 
tle and amusing, with no appalling puns or excessive 
asides (such as ‘didja get that joke, buster?'). A pleasant, 
painless book which you can digest, then give to a 
parent. 


Penguin Books has moved into the computer field with 
enthusiasm. As well as a 'Getting the Most Out of Your...’ 
series, they have a number of games books. Two which 
stand out are The Penguin Book of VIC 20 Games (Paul 
Copeland) and The Penguin Book of Commodore 64 
Games (Robert Young and Paul Copeland). Priced at 
£4.95 each, these large format books include such pro- 
grams as 'Space Venture’, ‘Oil Rig’ and 'Red Alert’. 
Worth buying, even if you do not have a VIC or a Com- 
modore 64, simply as a source of ideas for new programs 
to create on your own microcomputer. 


Arcade Games for Your VIC 20 and Arcade Games for 
Your Commodore 64 (Brett Hale, Corgi/Addison- 
Wesley) by contrast, are definitely only for those who 
have the machine specified. The programs are locked ir- 
revocably to the computer named. Taking advantage of 
a number of machine-specific features (such as sprite 
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graphics on the 64), Brett has produced a selection of 
around 20 programs for each machine. Each one is listed 
twice, the first time for the joystick and the second time 
for the keyboard. Titles include ‘Galaxy Robbers’, 
‘Bullet Heads’ and ‘Yackman’. 


CREATING ADVENTURE PROGRAMS 


There are anumber of books, some of which are aimedat 
computer owners, which will help you if you are one of 
the many, many computer games players who are in- 
terested in developing ‘Adventure’ and ‘Dungeons’ 
type programs. The place to start is with TRS Hobbies’ 
Dungeons and Dragons (‘]'M) Basic Set, which comes 
with the introductory rule book, Dungeon Dice (tm) and 
an instruction module, along witha sample scenario ‘The 
Keep on the Borderlands’. If you're new to the field, you 
should start with this set to give you an idea how ‘real life’ 
Adventure programs are built up. 


Additional information is provided by Fantasy Role- 
Playing Games (J. Eric Holmes, Hippocrene Books Inc.) 
which looks at the whole field and, despite some dis- 
paraging things to say on computer versions of such 
games, 1s worth looking for. Another overview ofthe field 
— with more sympathetic comments on the use of com- 
puters — is provided by Dicing With Dragons — An 
Introduction to Role-Playing Games (Jan Livingstone, 
Routledge and Kegan Paul), which includes a full ‘solo 
Adventure’, a review of the major games on the market, 
and a fascinating chapter on the pleasures and perils of 
being Dungeon Master in ‘Playing God’. 


Fantasy Wargaming (compiled Bruce Galloway, 
published Patrick Stephens) provides a complete 
unified system for ‘historically accurate’ (or at least in 
tune with the beliefs and circumstances of individuals in 
the peasant, feudal-economy times in which many 
Adventures are set) games. The fight, weapon and 
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monster tables alone are worth the book, as many oftheir 
ideas can easily be incorporated into your Adventures. 





There are two computer Adventure books which you 
could get to help you in the fascinating area of producing 
Adventure games on your machine. 

Creating Adventure Programs on Your Computer 
(Andrew Nelson, Interface Publications). 

Written by the author of More Games for Your VIC 20 and 
Games for Your TI 99/4A, in the Virgin Books games 
series, this booktakes you through the task ofdeveloping 
an Adventure program of your own, concentrating more 
on the ‘Loot and Pillage’ school of gaming than the Scott 
Adams’ ‘solve this puzzle to advance’ field. Three com- 
plete Adventure programs are included. 

Write Your Own Adventure Programs for Your 
Microcomputer (Jenny Tyler and Les Howarth, 
Usborne) is a much quicker introduction to the field than 
Nelson's, but nevertheless packs a lot of valuable infor- 
mation into its 48 pages. Step-by-step instructions are 
provided for creating an Adventure from scratch. A 
complete program — ‘Haunted House’ — is included in 
the book. 


The Age of Computers is the general title of four fine 
books produced by Wayland Publisher Limited. Each 
priced at £4.95, the books present a careful, but inviting, 
view of four aspects of the computer field, one on the 
history of computers and the others looking at specific 
areas of modern computer application. Each book is by 
Ian Litterick and Chris Smithers. The four titles are The 
Story of Computers, with Charles Babbage and Uncle 
Sir Clive Sinclair just inside the cover (and these two pic- 
tures accurately sum up the historical period covered by 
the book); How Computers Work (with chapter headings 
including ‘Bits, Bytes and Binary’, ‘Decision-making by 
Transistor’, and ‘Talking With Computers’); Computers 
in Everyday Life (such things as ‘Robots in the Home’, 
‘Magnetic Money’ and ‘Medicine and the Disabled’); 
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and Computers and You (‘Computopia’, ‘Big Brother’, 
‘War and Peace’ and — a fascinating final chapter — 
‘Will Computers Need Us’?’). 


Inside BASIC Games 

(Richard Mateosian, Sybex). 

This book is a slightly overwritten guide to under- 
standing computer games. You'll learn how to write 
interactive programs in BASIC and how the principles of 
system development are applied to small computers. 
The book also looks at how the features of specific small 
computer systems have been supported in BASIC. If you 
can contend with the verbiage, you'll find this book well 
worthwhile. 


1001 Things to Do With Your Personal Computer 
(Mark Sawush, Tab Books). 

Big and fat, and full of ideas, you'll find much here of in- 
terest to enlarge your computer horizons. The book tells 
you about writing music and stories with your computer, 
aiding a mechanic or a carpenter, solving simultaneous 
equations, astrology and much, much more. 


Stimulating Simulations 

(C.W. Engel, Hayden Book Company). 

Here are 12 unique programs written in a good, general 
version of BASIC. The fascinating programs include 
‘Forest Fire’, ‘Rare Birds’ and ‘The Devil’s Dungeon’. 
You're sure to enjoy playing those three, along with ‘Dia- 
mond Thief’, in which the computer decides who has 
committed the crime, then challenges you to discover 
which ofthe suspects is guilty. The material in this book is 
generally tightly programmed, and can be a helpful 
source of ideas to Improve your own computer work. 


The BASIC Handbook 

(David A. Lien, Compusoft Publishing). 

This is an encyclopedia of the BASIC language. It comes 
into its own when you find a program in a magazine or 
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book which you'd love to try, but are frustrated because 
it is written for another version of BASIC. Every BASIC 
word you've ever heard of (and many you may not have, 
such as NE, GOTO-OF and LE) is in here, along with a 
number of variations, one of which will almost certainly 
be on your machine. 


BASIC Computer Games 

(David Ahl, Creative Computing Press). 

This is a classic work, still selling well despite the fact it 
was one of the first such books — if not the first — on the 
market. David Ahl has been in personal computers even 
before there were such things. Although several of the 
games are overly-dependent on the random number 
generator, you'll find there are many, many games you'll 
want to adapt and improve for your own computer. 


How to Buy (and Survive) Your First Computer 
(Carolee Nance Kolve, McGraw-Hill Book Company). 
When is a business ready for a computer? How do you 
make an intelligent, informed choice among the hun- 
dreds of computers available? Will a computer improve 
acompany’'s operations? Answers to these and ascore of 
similar questions are in this book, which explains in detail 
what to consider before buying, how to select the right 
computer, and what to do after ordering the computer to 
ensure a successful installation. Ms Kolve has over 15 
years computer experience (including a stint with IBM) 
and brings her experience to bear in a relatively easily- 
digestible guide. 


Your First BASIC Program 

(Rodnay Zaks, Sybex). 

This book, liberally illustrated with large red dinosaurs 
in a variety of situations vaguely related to the text (one, 
for instance, as a cowboy getting tangled up in his ropes 
with the caption ‘Be careful when looping’), is a gentle 
and worthwhile introduction to the not-so-secret secrets 
of programming in BASIC. When you want to move 
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beyond just typing in other people’s programs from 
books and magazines, this may be a good place to start. 


This bibliography was compiled by the series editor, Tim 
Hartnell, who has felt constrained not to recommend any 
of his own books. However, he asked us to mention two 
which could be of use and interest to you. 


The first is The Personal Computer Guide (Virgin Books) 
which explains what a personal computer is, and 
answers questions like "Will it help my kids?"’, '‘What 
sort of games can we play on it?’ and ‘What can I use it 
for in the home?’’. The book describes many of the most 
popular computers available today, with illustrations, 
technical specifications and other information to help 
you to choose the equipment best suited to your require- 
ments. Also included is an introduction to BASIC pro- 
gramming, with details of programs suitable for use inthe 
home, a list of suppliers and user clubs, and a guide to 
further reading. There are also chapters covering the 
personal computer's history and its future. When you're 
ready to upgrade, you'll find this book a good, unbiased, 
reference work which looks at the choices facing you. 


Tim Hartnell’s Giant Book of Computer Games. 
Described by Personal Computer News as ‘a good 
source of ideas’, this 386-page book, published by Fon- 
tana, for £3.95, contains over 40 programs which will run 
with minimum modifications on most popular microcom- 
puters. The games include chess (of a sort!), a 17K 
Adventure and ‘Hyperwar'. 
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